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DO CRESCIMENTO 


Os computadores têm sido utilizados 
no estudo dos mais diversos aspectos 
da natureza. Veja aqui como 

eles podem nos ajudar a compreender 
o fenômeno do crescimento. 








O emprego de computadores na aná- 
lise das situações relacionadas à nossa 
realidade não se limita às coisas inani- 
madas. Ao contrário, a máquina tem se 
mostrado de grande utilidade no estu- 
do do comportamento dos organismos 
vivos. Ocorre que a matemática está in- 
timamente associada à natureza — nas 
formas mais inesperadas. E, sempre que 
há uma conexão com a matemática, os 
computadores podem ajudar a com- 
preender o que se passa, efetuando cál- 
culos e indicando resultados. 

Neste artigo, examinaremos algumas 
maneiras de se utilizar computadores na 
análise do crescimento dos organismos. 
Todas as formas vivas são capazes, em 
algum estágio do seu desenvolvimento, 
de mudar de tamanho, número ou for- 
ma. Apenas as duas primeiras situações 
serão tratadas aqui, juntamente com ou- 
tros exemplos de inter-relação entre a 
natureza e a matemática. 





COMO AS COISAS CRESCEM 


O crescimento — mudança de tama- 
nho — envolve a formação de novos 
materiais de estrutura. Tanto plantas 
quanto animais obtêm a matéria-prima 
necessária para isso do seu meio ambien- 
te. Mas o crescimento geral de um ser 
pode se dar de duas maneiras: pela mul- 
tiplicação do número de células (por 
meio da divisão celular) ou pelo aumen- 
to do tamanho das células. 





MEDIDAS 


Tendo em vista essa diferença, resta 
saber como medir o crescimento. É me- 
lhor medir o peso, como se iaz com os 
bebês, ou a altura, como se faz com as 
crianças maiores? Ou seria o volume a 
medida mais adequada? Ou a superfi- 
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cie do corpo? Não há uma resposta úni- 
ca para tais questões, pois seres diferen- 
tes exigem tipos de medida diferentes. 
Porém, sempre é interessante comparar 
medidas diversas quando se estuda o 
crescimento. 

As medidas mais significativas para 
animais são as de volume (ou peso) e su- 
perfície corporal. Essas medidas não au- 
mentam no mesmo ritmo, enquanto o 
animal cresce, o que tem consequências 
importantes, já que o tamanho e a for- 
ma de um ser estão muito ligados a seu 
modo de viver. 

Como vimos no artigo da página 434, 
a área é uma medida quadrática e o vo- 
lume, uma medida cúbica — isso expli- 
ca a diferença de velocidade que se re- 
gistra no aumento dessas duas medidas. 
A relação entre ambas poderá ser me- 
lhor compreendida se tomarmos como 
exemplo uma forma regular como um 
cubo. O programa a seguir mostra o que 
acontece com o volume e a área de cu- 
bos que tenham diferentes tamanhos. 
Digite-o e execute-o. 






10 GOSUB 180 
20 LET X=45: LET Y=35 
30 LET 5=2 

40 GOSUB 140 





/. AT 18,5/5+X/8;5 
60 LET SA=6*(5"2): LET VO=5S"3 


: LET AS=STAS (SA/VO): IF LEN 
AS>3 THEN LET AS=AS( TO 3) 
70 PRINT AT 20,8/5+X/8-1; 
PAPER O; INK 7;AS;":1” 

80 INPUT "TAMANHO DO CUBO (MA 
X 20) ?";A: IF ASS THEN 
GOSUB 180 


90 LET S=A 
100 IF S<1l OR S>20 THEN GoTo 
80 


110 LET X=X+58*5*1.5+5 
120 IF X+8*5*1.,5>255 THEN 
GOSUB 180: LET X=45 
130 GOTO 40 
140 PLOT X,Y 
150 LET D=5*5 
160 DRAW 0,D: DRAW D,O: DRAW D 
/3,D/3: DRAW -D,O: DRAW -D/3,- 
D/3: DRAW 0,-D: DRAW D,O: DRAW 
D/3,D/3: DRAW 0,D: DRAW -D/3,- 
D/3: DRAW 0,-D 
170 RETURN 
180 BORDER O: PAPER 4: INK O: 
CLS 
190 FOR N=0 TO B: PRINT AT N,0 
| PAPER 1;* 
“1 NEXT N 
200 PRINT AT 18,0; INK 1;" LADO 
"AT 20,0;"A/V:" 
210 PRINT AT 0,3; PAPER 1; INK 
7;"A/V=PROPORCAO AREA: VOLUME” 
220 RETURN 
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10 GOSUB 180:CLS 

20 X=45:Y=156 

30 Sm=2 

40 GOSUB 140 

60 SA=6*5*5:VO=S*S*S5 

70 PRINT"TAMANHO=";S;TAB(12);"P 
ROP.AREA/VOL=";:PRINT USING"t4.+ 
4:1";5SA/VO: PRINT 

BO INPUT"DIGITE O TAMANHO DO CU 
BO (1-20)";A:IF A<S GOSUB 180 
90 S=Ah 

100 IF A<1l OR 8>20 THEN BO 

110 X=K+5*7.5+5 

120 IF X+5*7.5>255 GOSUB 180:X= 
45 

130 GOTO 40 

140 SCREEN 1,0 

150 DRAW"BM"+STRS (INT(X))+”,"+5 
TRS (INT(Y))+"S"+STARS (INT(5*3))+ 
"CIEZNR6V6C4R6C2LENEZD6ERENUGEZU 
6 = 

160 IF INKEYS<>" ” THEN 160 

170 RETURN 

180 PMODE 3:PCLSZ 

190 RETURN 

10 GOSUB 18B0:CLS 

20 X=45:Y=156 

30 9=2 

40 GOSUB 140 

60 SCREENO:SA=6*5*S5:VO=5*5A*5 

70 PRINT"TAMANHO=";S8;TAB(15);"8 
UP/VOL=";:PRINTUSING"4.4t:1";5SA 
!VO: PRINT 

B0 INPUT"TAMANHO DO CUBO? (1-20 
J";A:IF A<S THEN GOSUB 180 

90 S=Ah 

100 IF A<l OR A>20 THEN 80 

110 K=X+5*7.5+5 

120 IF X+8*7.5>255 THEN GOSUB 1 
B0:X=45 

130 GoTo 40 

140 SCREEN? 

150 LINE (X,Y)-(X+5*48,Y7-5*5),8, 


B 

160 XK=K+2*8:Y=Y-2*S8:LINE (X,Y)- 
(X+5*8,Y7-5*5),8,B 

165 LINE (X,Y)-(X-2*45,7+2*5),8: 
LINE (X+5*5,Y7)-(X+9*5,7+2*8),8: 
LINE (X+5*5,Y-5*5)-(K+3*45,Y-3*S5 
)J,B:LINE (X,Y-5*458)-(X-2*48,Y-3*5 
),8:Y=156 

170 IF INKEY8="" THEN 170 ELSE 

RETURN 

180 SCREENZ 

190 RETURN 


10 HOME : GOSUB 180 
20 X = 45:Y = 156 


4 RR RO 


30 8 = 2 

40 GOSUB 140 

60 SA = 6 *9*%S:VO=5*58%* 

s 

70 VTAB 21: CALL - 958: PRINT 
"TAMANHO = ";S8: PRINT "RAZAO 8 

UP/VOL = ";8A / VO;":1" 

80 INPUT "TAMANHO DO CUBO (1-2 


0)? ";A: IF A < S THEN GOSUB 1 
80 

90 5 = À 

100 IFA<I1I0ORS> 20 THENBO 
10 X=K+9*7.5+5 

120 IF X+8S8* 7.5 > 255 THEN 
GOSUR 180:X = 45 


130 GoTo 40 
140 HPLOT X,Y TO X+ 5 * 35,7 7T 
OX+S*5T- BRST AT- 


5 * 5 TO XT 

150 U = ABS (U - 1): IF U THEN 
t=f+ZAG Te ZA 
OTO 140 

160 HPLOT X,Y TO X - 2 * S,T + 


2 * 8: HPLOTX+ 5 *S,Y TO KX 

S,Y + 2 * S: HPLOT X + 5 

-S*AsSTO NA IAS,T - 
» HPLOT X,Y -—- 5 * S TO X - 

248,7 -375 

170 Y = 156: RETURN 

180 HGR : HCOLOR= 3: RETURN 


O programa pede ao usuário que es- 
colha um número para a aresta (a me- 
dida de uma quina à outra) do cubo. Em 
seguida, desenha a figura na tela e mos- 
tra a razão entre área e volume. Come- 
ce com um cubo pequeno — quatro uni- 
dades de aresta, por exemplo — e vá au- 
mentando o valor fornecido ao compu- 
tador para simular um crescimento. Vo- 
cê verá que, à medida que o cubo se tor- 
na maior, a razão entre área e volume 
diminui. Em outras palavras, o volume 
aumenta muito mais rapidamente que a 
superfície do corpo. 

Grande parte da listagem está desti- 
nada a formatar a tela e desenhar os cu- 
bos. Assim, vamos nos deter na linha 
60, cujo conteúdo nos interessa de ma- 
neira mais direta. 

Séa aresta do cubo. A área de um 
lado é, portanto, S*S e a superfície do 
cubo todo (ele tem seis lados) é 6*S*S. 
O volume é S ao cubo, ou S*S*S. A ra- 
zão entre as duas medidas corresponde 
ao resultado da divisão da superfície pe- 
lo volume. Por exemplo, quando S é 
igual a 2, a razão é 6*2*2 dividido por 
2*2*2, que dá 3:1, Se dobramos o tama- 
nho da aresta, temos 6*4*4 dividido por 
4*4*4, que dá 1,5:1 — ou seja, a área 
é relativamente menor. 

Como animais não têm forma de cu- 
bo, é provável que queira adaptar o pro- 
grama para torná-lo mais próximo da 
realidade. Pequenos animais, como os 
camundongos, são melhor representa- 
dos por uma esfera, enquanto seres hu- 
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manos lembram mais um conjunto de 
cilindros — um para o tronco e outro 
para cada membro. No primeiro caso, 
precisamos conhecer a superfície e O vo- 
lume da esfera. A superfície é 
4*PI*raio? e o volume, 4/3*PI*raio”. Já 
a área de um cilindro é 2*PI*raio*altura 
mais 2*PI*raio” e o volume, PI*raio”* 
altura. 

Seja qual for a forma escolhida, o 
princípio geral é o mesmo e, em todos 
os casos, O volume cresce mais rapida- 
mente que a superfície. 


CRESCIMENTO E VIDA 





Essas relações matemáticas são mui- 
to importantes no Reino Animal, afe- 
tando as atividades e o habitat do ser em 
questão. Tomemos como exemplo o ra- 
to: ele tem um volume pequeno e, por- 
tanto, uma área relativa grande. Isso 
significa que seu corpo irradia calor ra- 
pidamente (dependendo do ambiente em 
que se encontra). O rato consegue 
manter-se aquecido produzindo energia 
pela queima de alimento. Ora, graças à 
velocidade com que perde calor, ele pre- 
cisa ingerir alimentos em quantidade 
equivalente à metade do seu peso. 

Um elefante, em contrapartida, tem 
um volume muito grande em compara- 
ção com sua superfície corpozal. Por- 
tanto, mantidas as proporções, ele irra- 
dia menos calor que o rato, e sobrevive 
com uma quantidade menor (em relação 
ao seu peso) de alimentos diários. Isso 
explica por que animais grandes se adap- 
tam melhor ao clima frio dos pólos, on- 
de a comida é escassa. 





LIMITE DE TAMANHO 


A relação entre massa e superfície 
ajuda a explicar por que animais e plan- 
tas não crescem além de certo tamanho. 
Dadas as proporções de uma determi- 
nada espécie, há um limite definido pa- 
ra as dimensões que ela pode alcançar. 
Esse limite é imposto pelo peso que os 
ossos do animal podem suportar. 

Quando seu tamanho — isto é, altu- 
ra, comprimento e largura — dobra, o 
peso cresce oito vezes, mas a área de su- 
porte dos ossos cresce apenas quatro ve- 
zes. Se os ossos se desenvolvessem o su- 
ficiente para sustentar o novo peso, fi- 
cariam desproporcionalmente finos em 
relação ao tamanho do animal, Em de- 
terminado ponto do seu crescimento, O 
animal estaria tão desajeitado que não 
conseguiria se mover. | 














Volumes e superfícies: gráfico comparativo. 


Se um rato atingisse o tamanho de 
um elefante, mantidas as mesmas pro- 
porções iniciais, suas pernas seriam in- 
capazes de suportá-lo. Isso explica por 
que espécies de tamanhos diversos têm 
proporções tão diferentes. 

O maior animal terrestre — o elefante 
— chega a pesar cerca de 10 toneladas. 
Um dinossauro podia alcançar 80 tone- 
ladas, mas ficava a maior parte do tem- 
po imerso na água. Os animais marinhos 
contam com o suporte da água, o que 
amplia os limites de seu tamanho. Ba- 
lejas azuis têm peso superior a 150 to- 
neladas e medem mais de 30 metros de 
comprimento. Naturalmente, não have- 
ria pernas que fossem capazes de susten- 
tá-las fora da água. O limite de seu cres- 
cimento, assim como dos demais ani- 
mais marinhos, está mais relacionado à 
perda de calor. 


RAZÃO DE CRESCIMENTO 





O programa a seguir mostra a velo- 
cidade de crescimento de uma planta, do 
plantio à maturidade, quando ela che- 
ga a seu limite de tamanho. 

A planta cresce devagar no início, e 
rapidamente depois. Atingindo seu limi- 
te de tamanho, volta a se desenvolver 
bem devagar, até parar ou, eventual- 
mente, morrer. Digite e execute o se- 
guinte programa: 


10 DIM G(11) 
20 DATA 2,9,22,35,58,92,104, 
112,115,117,118 


30 FOR N=1 TO 11: 
NEXT N 


READ G(N): 


Alterações da taxa de crescimento de uma planta, 


40 BORDER O: PAPER O: INK 4: 
CLS 

50 LET X=60: LET Y=10 

60 DRAW B0,0 

70 PLOT 30,0: DRAW INK 7;0, 
168 

BO PRINT INK Z;AT O, 1;"ALTUR 
A” 

90 FOR N=0 TO 138 STEP 12 
100 PLOT INK 7;30,N 

110 DRAW INK 7;-5,0 
120 NEXT N 


130 PRINT AT 20,0;"2";AT 17,0; 
"6";AT 14,0;"10";AT 11,07"14”; 
AT B,O0;"20";AT 5,0;" 24" 


140 PLOT 160,0: DRAW INK 7;:0, 
168 

150 PLOT 160,0: DRAW INK 7;95 
É) 


160 PRINT AT 0,17; INK 6;"TAXA 
DE" ;AT 1,15;"CRESCIMENTO” 

170 LET C=1 

180 LET GX=161 

190 LET GY=1 

200 FOR N=1 TO 117 

210 IF G(C)<2N THEN GOTO 250 
220 PLOT X,Y: DRAW 9,9,PI/2: 
DRAW -9,-9,PI/2 


230 DRAW -9,9,PI/Z: DBAW 9,-9, 
PI/2 
240 LET GX=GX+B: LET GY=1: LET 
C=C+1 


250 PLOT X,7Y 

260 FOR K=0 TO 3 

270 PLOT INK 5;GK,GY+K: 
INK 5:;8,0 

280 NEXT K 

290 LET GY=GY+4 

300 LET Y=T+1 

310 NEXT N 

320 FOR Y=117 TO 140 

330 PLOT X,Y 

340 NEXT Y 

350 FOR A=1 TO 10 STEP .3 
360 CIRCLE INK 6;X,Y,R 
370 NEXT RB 

380 GOTO 380 


DRAW 


20 DATA 2,9,22,35,58,92,104,112 
+ 115,117,118 

30 FOR N=0 TO 10:READ G(N):NEXT 
40 PMODE 3:PCLS:SCREEN 1,1 

50 X=60:Y=190 

60 LINE (8B,23)-(8,192), PSET:LIN 
E- (80,192), PSET 

B0 DRAW"BM20, 6824C7D2BRUNLUBR2L 
DNADRBRU2ZBR2LD2RUS8NLS24BED2BRU 
NLUBRS1 6RND3RCB” 

90 FOR N=d47 TO 191 STEP 12 

100 LINE (2,N)-(8,N), PSET 

120 NEXT 

140 LINE (158,23)-(158,191),PSE 
T 

150 LINE -(255,191),PSET 

160 DRAW"BM176,6C6S24LD2RUSBNLS 
24BEND2RDLFBRNUZRUZLBR2D2EFUZBR 
516RND3AS24BRD2BRUNLUBM182, 24ND 
2RDLFBRUZRDNLDS16BR2U3LR2524BRZ2 
LDNRDA” 

170 GX=161:GY=190 

190 COLOR 6,7 

200 FOR N=1 TO 117 

210 IF G(C)>N THEN 250 

220 CIRCLE(X,Y-4),15,6,.4,0,.5 

230 CIRCLE(X-16,Y),16,6,.4,.75, 
1:CIRCLE(X+16,Y),16,6,.4,.5,.75 
240 GX=GX+8:GY=190:C=C+1 

250 PSET(X,Y,6) 

260 FOR K=0 TO 3 

270 LINE(GX,GY-K)-(GX+B,GY-K),P 
RESET 

280 NEXT 

290 GY=GY-4 

300 Y=Y-1 

310 NEXT 

320 FOR Y=75 TO 58 STEP -1 

330 PSET (X,Y,6) 

340 NEXT:POKE 178,54 

350 FOR R=1 TO 15 

360 CIRCLE (X,Y),R,.B 

370 NEXT 

380 GOTO 380 








Regra de Fibonacci para um retângulo bem proporcionado. 


20 DATA 2,9,22,35,58,92,104,112 
,115,117,118 

30 FOR N=1 TO 10:READ G(N): 
40 COLOR 2,15,15:95CREENZ 

50 X=60:Y=190:PI=3.1416 

60 LINE (8,23)-(8,192) :LINE -(8 
0,192) 

90 FOR N=47 TO 191 STEP 12 

100 LINE (2,N)-(8B,N) 

120 NEXT 

140 LINE (158,23)-(158,191),8 
150 LINE - (255,191),8 

170 GX=161:GY=190 

200 FOR N=1 TO 117 

210 IF G(C)>2N THEN 250 

220 LINE(X,Y)-(X+10,T7-5) : LINE (X 
Y)-(X-10,7-5) 

240 GX=GK+B:GY=190 
L.50 PSET(X,T) 

260 FOR K=1 TO 3 
270 LINE(GX,GY-K)-(GX+B,GY-K),8B 
280 NEXT 

290 GY=GT-d 

300 Y=T-1 

310 NEXT 

320 FOR Y=75 TO 58 STEP-1 

330 PSET(X,Y),6 


NEXT 


«C=C+1 


340 NEXT 

350 FOR R=1 TO l4 

360 CIRCLE(X,Y),A,16-R,,,.-8 
3!0 NEXT 


380 GOTO 380 


20 DATA 2,9,22,35,58,92,104,1 
12,115,117,118 


30 FOR N= 1 TO lO: READ G(N): 
NEXT 

40 HOME : HGR : HCOLOR= 3 

50 X = 60:7 = 156 


60 HPLOT 8,2 TO 8,158 TO B0,15 


O: 
é 


Eé 
té 


Bê tê 
5: é 
ti à  d&& dk 


ki bi kk ii Eé ma bt dé 


BO VTAB 21: PRINT * TAM DA PL 
ANTA” ,” VEL DE CRESCIMENTO” 
90 FOR N = 11 TO 155 STEP 12 


100 HPLOT 2,N TO B,N 

120 NEXT 

140 HPLOT 158,2 TO 158,156 TO 
255,156 


170 GX = 161:GY = 156 


200 FORN=1 TO ll? 
210 IF G(C) > N THEN 250 
230 HPLOT X,Y TO X + 10,7 - 5: 


HPLOT X,Y TO X - 10,7 - 5 
240 GX = GX + B:GY = 1h6:€ = € 


+ dl 

2580 HPLOT X,Y 

260 FOR K = 1TOJ3 

270 HPLOT GX,0Y - K TO GX + 8, 
GT - K 

280 NEXT 

290 GY = GY - 4 

300 Y = Y-1 

310 NEXT 

340 CX = X:CY = Y7Y - 15:B1l = d3: 
A2 = 8: HPLOT CX + BR,CY 

350 FOR A = O TO 6.28 STEP .1 

360 HPLOT TO CX + R1l * COS ( 
A),.CY - Bl * SIN (A): HPLOT T 


O CX + R2 * 
SIN (A) 
370 NEXT 


O programa mostra graficamente o 
que acontece com a planta. Os dados da 
linha 20 equivalem ao tamanho da plan- 
ta, medido a intervalos regulares. São 
usados tanto no desenho da figura quan- 
to no traçado do gráfico que mostra a 
velocidade de crescimento. 

A rotina da linha 200 à 310 encarre- 
ga-se do desenho da planta. Os eixos e 
escalas do gráfico são definidos nas li- 
nhas 40 a 160, enquanto o traçado das 
barras é feito pelas linhas 260 a 280. A 
flor, finalmente, é desenhada pelas li- 
nhas 350 a 380. 

Como o gráfico deixa claro, o cres- 


cos (A),CY - AZ * 





Uma explosão populacional de coelhos. 


cimento da planta é lento no princípio, 
acelerando em seguida, até perder, de 
novo, a velocidade. Os dados foram re- 
tirados de um experimento real que me- 
diu o crescimento da área de uma folha 
de um pepineiro. Os mesmos valores po- 
dem ser usados para avaliar o crescimen- 
to de toda a planta. 





GERAÇÕES E NÚMEROS 


Quando se acasalam, os animais mul- 
tiplicam-se, dando origem a várias ge- 
rações. Tomemos o caso dos coelhos. 
Um par de coelhos — primeira geração 
— produz um novo par. Este forma a 
segunda geração. O casal inicial produz 
mais um par e a segunda geração passa 
a ter dois pares. Como veremos adian- 
te, uma série de números representan- 
do gerações pode ser como se segue: 
1,1,2,3,5,8,13,21 etc. O próximo pro- 
grama mostra graficamente como o nú- 
mero de coelhos cresce com o passar do 
tempo. 


10 BORDER O: PAPER 1: INK 7: 
CLS 


20 FOR N=0 TO 7: READ A: POKE 


USAR "a"+N,A: NEXT N 

30 FOR N=0 TO 7: READ A: POKE 
USR "b"+N,A: NEXT N 

40 LET C8=" 

50 LET AS=CHAR$S 144: LET B3= 
CHARS 145 

60 PAPER O: CLS : PAPER 1 

70 FOR N=1 TO 6: PRINT CS'': 
NEXT N 

80 PRINT INK 5;AT 0,0;"GER* 





o (RAR qe» (RD Rar PIA rrRaRr 
90 FOR N=1 TO 20 

100 IF N5>1 THEN FOR P=1 TO 10 
: BOUND .01,P: NEXT P 

110 BREAD X,Y: PRINT AT Y,X;A&; 

AS;AT Y+1,X;BS:;BS 

120 NEKT N 

130 FOR N=1 TO 20 

140 READ X,Y,XX,YY: PLOT X,Y: 

DRAW INK 4;XX,YY 

150 NEXT N 

160 PRINT AT 18,2; INVERSE 1;" 

ARVORE GENEALÓGICA - COELHOS" 


170 INK 6: INVERSE 1: PRINT *" 
GERACAO O do a dA 
5" " "PARES A A Sa 


dp E SEO 

180 GOTO 180 

190 DATA 144,80,48,28,52,62,62 
,24,60,126,118,120,126,254,252 
(63 

200 DATA 16,0,16,3,22,6,11,6, 
16,9,6,9,11,12,25,9,22,12,3,12 
,16,15,14,15,16,12,28,12,26,15, 
2,15,10,15,18,15,22,15,30,15 
210 DATA 136,159,0,-7,144,159, 
32,-31,128,135,-34,-7,136,135, 
0,-31,184,112,0,-31,192,112,8, 
-8,88,111,-25,-7,96,111,0,-31 
220 DATA 48,87,-10,-7,56,87,0, 
-31,24,63,-5,77,90,63,-8,-7, 
128,687,-8,-8,120,79,0,-23,136, 
87,0,-7 

230 DATA 144,63,7,-7,184,63,0, 
-7,208,88,0,-31,216,88,7,-7, 
240,63,7,-7 


10 PMODE 3:PCLS:DIM R(9) 

20 SS=PEEK (186) *256+PEEK (187) 
30 FOR K=S5S5 TO SS+480 STEP 32 
40 READ A,B:POKE K,A:POKE K+1,B 
50 NEXT 

60 GET (2,0)-(13,15),R,6G 

70 PUT(14,0)-(25,15),R,PSET:GET 
(2,0)-(25,15),8,06 

BO PCLS4:SCREEN 1,0 

90 COLOR3: FOR K=0 TO 5 

100 LINE (0,32*K)-(255,32*kK+24) 
' PSET,BF 

110 NEXT 

120 COLOR 1:FOR N=1 TO 20 

140 READ X,Y:PUT(X,Y)-(X+23,Y+1 
5) ,R,PSET 

150 IF N>1 THEN PLAY"OILT5S0CCEFG 


160 READ X,Y,XX,YY:LINE(X,Y)-(X 
X, YY), PSET 

170 NEXT 

180 GOTO 180 

190 DATA 169,170,153,170,165,17 
0,169,90,165,154,165,86,15,90,1 
69,106 

200 DATA 169,106,165,90,165,154 
+: 165,106,165,106,149,106,149,10 
6,165,90 

210 DATA 114,7,124,24,124,38,11 
4,39,113,56,69,70,59,71,138,23, 
178,68,171,71,57,869,42,100,31,1 
03 

220 DATA 124,57,124,101,115,103 


+ 195,87,208,101,199,103 

230 DATA 29,120,12,133,3,135,68 
/89,68,133,59,135,124,121,124,1 
33,115,135 

240 DATA 180,89,180,133,171,135 
,222,120,234,133,225,135,12,153 
,/12,165,3,167 

250 DATA 40,121,42,165,33,167,6 
8,153,72,165,63,167,113,120,98, 
165,93,167,124,153,144,165,137, 
167 

260 DATA 178,153,176,165,167,16 
?7,208,121,206,165,197,167,234,1 
53,234,165,225,167,124,70,124,7 
0 


ny 


5 CLEAR 5000 

10 COLOR 4,15,15:SCREENZ 

60 AS$="S4F]DIL2BF1R3GILIDIRIFIL 
3D1R3" 

90 FOR K=0 TO 5 

100 LINE(0,32*K)- (255, 32*4K+24), 
2, BF 

110 NEXT 

120 FOR N=1 TO 20 

140 READ X,Y: PRESET(X,Y) :DRAW"X 
AS;": PRESET(X+15,Y) :DRAWNCXAS;” 
160 READ X,Y,XX,YY:LINE(X,Y)-(X 
X,YY),8 

170 NEXT 

180 GOTO 180 

210 DATA 114,7,124,24,124,38,11 
4,39,113,56,69,70,59,71,138,24, 
178,68,171,71,57,89,42,100,31,1 
03 

220 DATA 124,57,124,101,115,103 
,195,87,208,101,199,103 

230 DATA 29,120,12,133,3,135,68 
,89,68,133,59,135,124,121,124,1 
33,115,135 

240 DATA 180,89,180,133,171,135 
,222,120,234,133,225,135,12,153 
/12,165,3,167 


250 DATA 40,121,42,165,33,167,6 


8,153,72,165,63,167,113,120,98, 
165,93,167,124,153,144,165,137, 
167 

260 DATA 178,153,176,165,167,16 
7,208,121,206,165,197,167,234,]1 
53,234,165,225,167,124,70,124,7 
Q 


10 HGR2 : HCOLOR= 3 
20 DATA 1,0,4,0,60,60,28,109, 
1,193,193,43,53,55,53,54,55,45, 


53,63,63,46,173,27,54,45,45,62, 
63,63,46,45,53,63,55,45,53,63,6 





2,63,60,7,0 
30 P = 233: POKE P - 1,0: POKE 
P,97: SCALE= 1: ROT= 0 


40 FOR I = 24832 TO 24874: REA 

D €: POKE I,C: NEXT 

90 FOR K = O TOS 

100 HPLOT 0,30 * K TO 255,30 * 
K 

110 NEXT 

120 FOR N=1'TOZo 

140 READ X,Y: DRAW 1 AT X,Y: D 

RAW 1 AT X + 15,Y 


160 READ X,Y,XX,YY: HPLOT X,Y 
TO XX, YY 

170 NEXT 

190 DATA 114,7,124,24,124,38 


,114,39,113,56,69,70,59,71,138, 



















VR RS quer 





E O e E DE a am RR O O 





————— . 


bad 


+ ti 


fra BE Fm 







23,178,68,171,71,57,89,42,100,3 
1,103 

200 DATA 124,57,124,101,115,1 
03,195,87,208,101,199,103 

210 DATA 29,120,12,133,3,135 
/68,69,68,133,59,135,124,121,12 
4,133,115,195 

220 DATA 180,89,180,133,171, 
135,222,120,234,133,225,135,12, 
153,12,165,3,167 

230 DATA 40,121,42,165,33,167 
,68,153,72,165,63,167,113,120,9 
8,165,93,167,124,153,144,165,13 
7,167 

240 DATA 178,153,176,165,167 
,167,208,121,206,165,197,167,23 
4,153,234,165,225,167,124,70,12 
4,70 


O programa começa criando o UDG 
para o coelho, a partir das linhas de da- 
dos (190 e 200). As linhas 60 a 110 (40 
a 80, no Spectrum) desenham barras na 
tela para separar cada geração. A seção 
seguinte do programa, que vai até a li- 
nha 180, imprime os coelhos e as linhas 
que ligam as gerações. Os dados que de- 








finem as linhas e posições são lidos da 
linha 210 em diante. 

À medida que os organismos se mul- 
tiplicam, eles se espalham e colonizam 
outras áreas. Um bom exemplo é a ma- 
neira pela qual as bactérias se reprodu- 
zem. Computadores também podem ser 
usados para representar esse tipo de ex- 
pansão. Existem jogos interessantes ela- 
borados a partir dessa idéia. Você en- 
contrará um deles, o Jogo da Vida, na 
página 961. 


NUMEROS DE FIBONACCI 


A série de números mencionada an- 
teriormente — 1,1,2,3,5,8,13,21 etc. — 
apresenta algumas propriedades que po- 
dem ser observadas na natureza e em 
obras de arte. É conhecida como “nú- 
meros de Fibonacci" desde o século 
XIII, quando o matemático italiano a 
descreveu, Cada número dessa série cor- 
responde à adição dos dois anteriores. 


] 
| 


Uma propriedade interessante pode 
ser observada tomando-se quaisquer três 
números em sequência. Multiplique o 
primeiro pelo último e compare o resul- 
tado com o quadrado do número do 
meio. A diferença será sempre 1. Tome- 
mos os números 5, $e 13: 5 vezes 13 dá 
65 e 8 ao quadrado, 64. 

Dividindo cada número pelo da direi- 
ta, obtemos uma série de frações que se 
relacionam à natureza e à arte. Desco- 
briu-se, por exemplo, que nem todas as 
formas retangulares são igualmente 
agradáveis de se olhar. Algumas pare- 
cem muito estreitas, outras muito largas. 
O retângulo de melhor aparência tem 
uma relação especial entre altura e lar- 
gura, conhecida como a ''razão de ou- 
ro”, Essa razão é igual a (sgr (5) — 1)/2, 
cujo resultado é 0.6180. Se você calcu- 
lar qualquer das frações de Fibonacci, 
verá que, quanto maiores os números 
usados, mais elas se aproximam da ra- 
zão de ouro. Por exemplo, 8/13 é igual 
a 0,6154; 13/21, a 0,6190 e 21/34, a 
0,6176. 

Experimente agora o próximo pro- 
grama. Ele desenha retângulos de dife- 
rentes tamanhos, de maneira que você 
mesmo poderá julgar quais os melhores. 
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10 DIM F(12): DIM D(14) 
20 LET D(1)=1: LET D(2)=1 
30 FOR N=3 TO 14 
40 LET D(N)=D(N-1)+D(N-2) 
50 NEXT N 
60 FOR N=1 TO 12 
70 LET F(N)=D(N)/D(N+1) 
BO NEXT N 
90 BORDER O: 
CLS 
100 LET A=15: LET B=8 
110 LET X=20: LET Y=170 
120 GOSUB 310 


INK 7: PAPER O: 


130 PLOT 0,130: DRAW INK 2; 
255,0 

140 PLOT 0,128: DBAW INK 2; 
255,0 

150 PLOT B0,130: DRAW INK 2;0 
145 

160 PLOT B2,130: DRAW INK 2;0 
545 

170 PRINT AT 2,1; INK 3;"B";AT 

4,5;"A” 

180 INPUT "COMPRIMENTO DO LADO 
à (MAX 70) ?P";A 

190 IF A<1l OR A>70 THEN GcoTo 
180 

200 INPUT "COMPRIMENTO DO LADO 


B (MAX 40) 7";B 

210 IF B<l OR B>40 THEN GcOoTo 
200 

220 LET X=128-(A*3/2): 
120 

230 GOSUB 310 

240 PRINT AT 0,11; 
A=";A;" LADO B=";B 
250 FOR N=1 TO 12 
260 IF A/B=F(N) OR B/A=F(N) 
THEN PRINT AT 2,8;"RAZÃO DE 

FIBÔNACCI" 

270 NEXT N 

280 PRINT AT 4,1; FLASH 1; INK 

6;" QUALQUER TECLA PARA CONTINU 

AR” 

290 PAUSE O 

300 RUN 

310 PLOT X,Y: DRAW 3*A,0: DRAW 
0 E =-3*B 

320 DRAW -3*A,O0: 
330 RETURN 


10 DIM F(11),D(13) 

20 D(0)=1:D(1)=1 

30 FOR N=2 TO 13 

40 D(N)=D(N-1)+D(N-2) 
50 NEXT 

60 FOR N=0 TO 11 

70 E (N)=D(N)/D(N+1) 
BO NEXT 

90 PMODE 3:PCLS:CLS 
100 A=15:B=B 

110 X=20:Y=22 

120 GOSUB 310 

130 COLOR 4:LINE(0,62)-(255,62) 


LET Yu 


INK 5;" LADO 


DRAW 0,3*B 


|, PSET 


140 LINE(0,64)-(255,64),PSET 


150 LINE(80,62)-(80,17),PSET 

160 LINE(82,62)-(82,17),PSET 

170 DRAW"BM9, 38C2SBU4R2FGNLFGLZ 

BM4O, SBU3EFDNLDZ” 

175 FOR K=1 TO 900:NEXT 

180 INPUT"COMPRIMENTO DO LADO A 
(MAX 70) ";A 

190 IF A<1l OR A>70 THEN 180 

200 INPUT"COMPRIMENTO DO LADO B 
(MAX 40) “i;B 

210 IF B<l OR B>40 THEN 200 

220 X=128-A*S/3:Y=72 

230 GOSUB 310 

250 FOR N=0 TO 11 

260 IF A/B=F(N) OR B/A=F(N) THE 

N DRAW"BM106, 44C258NR2D2NARD2BR4 

U4BRZND4RFGNLFGLBR4NU4R2U4L 2BR4 

DND3F 2NU3DBR2U3EFDNL2D2BR4L 2ZU4R 

2BR4L2D4R2BR2U4BARBND4RZD2LZFZBR 

ZU3JEFDNLDZBRIVU4LR2BRZ2D4BRZ2RZ2U4L 

2D4 er 

270 NEXT 

280 IF INKEYS="" THEN 280 

300 RUN 

310 SCREEN 1,0:COLOR 3 

320 LINE(X,Y)-(3*A+X, Y+3*4B), PSE 

T,BF 

330 RETURN 


Lo 


10 DIM F(11),D(13) 

20 D(0)=1:D(1)=1 

30 FOR N=2 TO 13 

40 D(N)=D(N-1)+D(N-2) 

5O NEXT 

60 FOR N=0 TO 11 

70 F(N)=D(N)/D(N+1) 

80 NEXT:OPEN "GRP:” FOR OUTPUT 
AS 41 

B5 COLOR 
90 SCREENZ 
100 A=15:B=B 

110 X=20:Y=22 

120 GOSUB 310 

130 LINE(0,62)-(255,62),8 
140 LINE(0,64)-(255,64),8 
150 LINE (80,62)-(80,17),8 
160 LINE(82,62)-(82,17),8 


170 FOR K=1 TO 1500:NEXT:RETURN 
180 SCREENO: INPUT"TAMANHO DO LA 
DO A (MAX 70)" ;AA 


190 IF AA<1l OR AA>70 THEN 180 


200 INPUT"TAMANHO DO LADO B (MA 
X 40)" ;BB 

210 IF BB<l OR BB>40 THEN 200 
215 GOSUB 90 

220 A=AA:B=BB:X=128-A*3/2:Y=72 
230 GOSUB 310 

240 FOR N=0 TO 11 


260 IF A/B=F(N) OR B/A=F(N) THE 
N PRESET(90,15): PRINTEL, "RAZÃO 
DE FIBONACCI” 
270 NEXT 

280 IF INKEY3="" 
300 RUN 

310 REM 

320 LINE(X,Y)-(3*%A+X,Y+3*B),4,B 


THEN 280 


F 
330 RETURN 


[Io] 

10 DIM F(11),D(13) 

20 D(0) = 1:D(1) = 1 

ão .FOR N = 2 TO 13 

40 D(N) = D(N - 1) + D(N - 2) 
50 NEXT 

60 FOR N = OTOll 

Z0 F(N) = D(N) / D(N + 1) 

BO NEXT 

90 HOME : HGR 
100 A = 15:B = B 
110 X = 20:Y = 22 


HCOLOR= 3 


120 GOSUB 310 

130 HPLOT 0,62 TO 255,62 

140 HPLOT 0,64 TO 255,64 

150 HPLOT B0,62 TO 80,17 

160 HPLOT B2,62 TO 82,17 

180 VTAB 21: INPUT "TAMANHO DO 


LADO A (MAX 70) ";A 


190 IFA<1ORA>õg70THENÃIS 
0 

200 INPUT "TAMANHO DO LADO E ( 
MAX 39) ";B | 

210 IFB<1ORB> 39 'THENDZO 
0 

220 X = 128-A*%3/2:Y = 72 

230 GOSUB 310 

250 FOR N=0 TO 

260 IFA/B=F(N)ORB/A-= 


F(N) THEN VTAB 21: CALL - 95 
8: PRINT ” RAZAO DE FIBONACCI " 


: CHARS (7) 

270 NEXT 

280 FOR I=1'TOl000: NEXT: 
POKE - 16302,0: GET RBS 

300 GoTO 90 

310 FOR XX =X TO X+ 3I37* A 
320 HPLOT XX,Y TO XK,7 + 3 * B 
325 NEXT 

430 RETURN 


O programa começa pedindo que o 
usuário defina o tamanho dos lados do 
retângulo. Se você entrar dois números 
adjacentes da série de Fibonacci, será 
avisado de que se trata de uma fração 
de Fibonacci. 

Os números da série são calculados 
nas linhas que vão de 20 a 50. A partir 
dos dois primeiros números, os demais 
vão sendo calculados pela adição de ca- 
da número ao anterior. As linhas 60 a 
80 guardam os números em uma matriz 
e as linhas 90 a 170 desenham um retân- 
gulo, para exemplo. Em seguida, come- 
ça a rotina de entrada, que verifica se 
os números escolhidos pertencem à sé- 
rie de Fibonacci. 

Podem-se encontrar exemplos dos 
números de Fibonacci também na natu- 
reza; assim, uma espiral ligando folhas 
de um galho tem voltas e vãos que for- 
mam razões de Fibonacci. Conte o nú- 
mero de voltas da espiral, de uma folha 
à outra. Depois, conte o número de vãos 
da espiral entre essas duas posições. A 
razão é, em geral, 5/3 ou 8/5. 








JOGOS DE GUERRA: 


A batalha começa, afinal, possibilitada 
pelas rotinas de combate balístico e 

corpo a corpo que apresentamos neste 
artigo. Veremos também como testar 0 
moral e contar as baixas de cada lado. 


Capa e Espada está quase completo; 
já podemos dar ordens às unidades e 
movê-las pelo campo de batalha. Faltam 
apenas as rotinas de combate. Depois de 


adicioná-las ao programa, experimenta- 
remos, finalmente, O Jogo. 

Os eventos resultantes do choque en- 
tre dois exércitos podem ser bem com- 
plicados — assim, antes de qualquer coi- 
sa, devemos decidir o que incluir no pro- 
grama. No tipo mais simples de resolu- 
ção de combate, o maior sempre vence, 
o que faz do tamanho das unidades o 
fator decisivo da vitória ou da derrota. 
Podemos ainda relacionar o desenlace 
da batalha ao moral da tropa, ao núme- 
ro de cavaleiros etc. Na realidade, nin- 


LE ALCANCE DOS PROJÉTEIS 
E | COMBATE CORPO A CORPO 
E CONFERINDO O MORAL 
z VITÓRIA E DERROTA 
w INSTRUÇÕES 


guém tem a receita infalível do triunfo; 
portanto, os fatores que determinam 
quais serão os vencedores em um jogo 
de guerra dependem da escolha do pro- 
gramador. 


COMBATE BALÍSTICO 


Em Capa e Espada existem dois tipos 
de combate: balístico (flechas) e corpo 
a corpo. Esta primeira rotina trata do 
combate com projéteis. 











1710 REM Tiro 

1720 GOSUB 2540 

1730 PRINT AT 18,0;"Unidade ";s 
h;”" atira” 

1740 LET fx=5: LET fvyv=5: LET qp 
== ] 

1745 LET st=9 

1750 IF ah>B THEN LET st=1 
1770 FOR m=st TO (st+7) 

1780 LET Em=ABS (T(m,8)-T(sh,8) 
)j: LET ty=ABS (T(m,9)-T(ah,9)) 
1785 IF tm<fx AND T(m,1)<5 AND 
ty<fy THEN LET fx=tm: LET fy=t 
yY: LET qgp=m 

1790 NEXT m 

1800 IF qp=-1 THEN PRINT AT 19 
;0:"Fora de alcance”: GOSUB 241 
O: RETURN 

1810 LET C=B-T(qgp,4)-ABS (fx-fy ) 
1820 IF qp<3 OR qp=9 OR qp=10 T 
HEN LET C=C+l 

1830 IF m(T(op,8).T(qgp,9))=2 TH 
EN LET C=C-2 

1840 IF Tí(gp,1)<>2 THEN LET €= 
C+1 

1850 LET C=(C+(INT (T(sh,7)/40) 
J+EN r(3))*10 

1860 LET T(gp,7)=T(gp,7)-C 

1870 PRINT "Houve ";C;” baixas 
na unidade "“:qp 

1875 GOSUB 2410 

1880 LET un=qgp: GOSUB 2200 

1890 RETURN 


o 


1710 REM TIRO 
1720 GOSUB 2540 
1730 LOCATE 0,19:PRINT "UNIDADE 
" :SH;" ATIRA” 
1740 FX=5:FY=5:GP=-1 
1745 ST=9 
1750 IF SH>8 THEN ST=] 
1770 FOR M=ST TO ST+7 
1780 TM=ABS(T(M,8)-(T(SH,8B)):TY 
=ABS(T(M,9)-T(SH,9)) 
1785 IF TM<EX AND T(M,1)<5 AND 
TY<FY THEN EX=TM:FY=TY:GP=M 
1790 NEXT M 
1800 IF GP=-1 THEN LOCATE 0,20: 
PRINT "FORA DE ALCANCE” :GOSUB 2 
410 
1810 C=B-T(GP,4)-ABS(FX-FY) 
1820 IF GP<3 OR GP=9 OR GP=10 T 
HEN C=C+1 
1830 IF M(T(GP,8),T(GP,9))=2 TH 
EN C=C-2 
1840 IF T(GP,1)<>2 THEN C=C+1] 
1850 C=(C+INT(T(SH,7)/40))+FN R 
(3))*10 
1860 T(GP,7)=T(GP,7)-€ 
1870 PRINT "HOUVE" ,C;"BAIXAS NA e 
NIDADE” ;GP y 
1875 GOSUB 2410 1720 GOSUB 2540 1780 TM = ABS (T(M,B) - T(SH,B 
1880 UN=GP:GOSUB 2200 1730 VTAB 21: PRINT "UNIDADE ” )):TY = ABS (T(M,9)) 
1890 RETURN :8SH;” ATIRA”: GOSUB 30000 1785 JIF TM < FX AND T(M,1) < 5 
1740 FX = S:FY = 5:GP = - 1 AND TY < FY THEN FX = TM:FY = 
[É] 1745 ST = 9 TY:GP = M 





: 1750 IF 8H > B THEN ST = à 1790 NEXT M 
4710 REM TIRO 1770 FORM = STTO(STÃ+Ãã7) 1800 IF GP = - 1 THEN PRINT 


"FORA DE ALCANCE”: 
GOSUB 2410: 
1810 € = 8 - T(GP,4) - 


- EFY) 
1820 


RETURN 


IF GP 


= 10 THEN C = C+1 


1830 


IF M(T(GP,8), T(GP,9)) 








GOSUB 30000: 
ABS (FX 


< 3 0R GP =9 OR GP 


2 
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THEN C = €C-2 

1840 IF T(GP,1) < > 2 THENC 
-C+i 

1850 C = (C + ( INT (T(SH,4) / 
40)) + EN R(3)) * 10 


1860 T(GP,7) = T(GP,7) - € 

1870 PRINT "HOUVE ";C;” BAIXAS 
NA UNIDADE ";GP 

1875 GOSUB 30000: GOSUB 2410 
1880 UN = GP: GOSUB 2200 

1890 RETURN 

| | 


ho e 


Modifique as seguintes linhas do pro- 
grama destinado ao Apple: 


1730 VTAB 21: PRINT "UNIDADE ” 
:8H;"” ATIRA” 

1800 IF GP = - 1 THEN PRINT 

"FORA DE ALCANCE”: GOSUB 2410: 

RETURN 

1875 GOSUB 2410 


1710 REM TIRO 

1720 GOSUB 2540 

1730 DRAW" BMO,152" :AS="UNIDADE” 
+STARS (5H) +” ATIRA” :GOSUB 3190 
1740 FX=5:FY=5:GP=-1 

1745 ST=9 

1750 IF SH>B THEN ST=1 

1770 FOR M=ST TO (ST+7) 

1780 TM=ABS(T(M,B)-T(SH,B)):TY= 
ABS(T(M,9)-T(SH,9)) 

1785 IF TM<FX AND T(M,1)<5 AND 
TY<FEY THEN FX=TM:FY=TY:GP=M 
1790 NEXT M 

1800 IF GP=-1 THEN DRAW" BMO,160 
".AS="FORA DE ALCANCE" :GOSUB 31 
90:GOSUB 2410:RETUAN 

1810 C=B-T(GP,4)-ABS(FX-FY) 
1820 IF GP<3 OR GP=9 OR GP=10 T 
HEN C=C+1 

1830 IF M(T(GP,B),T(GP,9))=2 TH 
EN C=C-2 

1840 IF T(GP,1)<>2 THEN C=C+1 
1850 C=(C+INT(T(SH,7)/40))+RBND( 
3))*10 

1860 T(GP,7)=T(GP,7)-C 

1870 DRAW" BMO, 160" :AS="HOUVE"+5 
TRS(C)+” BAIXAS NA UNIDADE"+STR 
S (GP) :GOSUB 3190 

1875 GOSUB 2410 

1880 UN=GP:GOSUB 2200 

1890 RETURN 


A rotina de tiro é chamada sempre 
que os arqueiros recebem a ordem “FO- 
GO”. Em outros jogos pode haver mais 
de um tipo de unidade com capacidade 
de atirar diferentes projéteis. 

Quando uma unidade recebe a ordem 
de disparo, G% (GP ou gp) passa a va- 
ler — 1 na linha 1740. A seguir, a rotina 
verificará se há um alvo vulnerável na 
área. As coordenadas da unidade que 
atira são comparadas às de cada unida- 
de inimiga pela linha 1780. Se o alvo es- 
tiver dentro de um alcance de cinco po- 


sições do mapa, G% (GP ou gp) assu- 
me o número da unidade atingida. Se 
houver mais de um alvo, o mais próxi- 
mo será considerado. 

Caso não haja unidades inimigas por 
perto, G% (GP ou gp) permanece va- 
lendo —l e o jogador é informado que 
o inimigo está “FORA DE ALCANCE”. 

Se o disparo atingir o alvo, as baixas 
inimigas serão calculadas e armazenadas 
em C% (ou €). 

Vários fatores determinam a gravida- 
de dos danos causados por um disparo. 
Na linha 1810, o tipo de armadura da 
unidade-alvo é subtraído de 8. Em se- 
guida, subtrai-se do resultado um fator 
de distância. A linha 1820 adiciona 1 a 
C% (ou €), se a unidade-alvo for de ca- 
valeiros. Se ela estava resguardada por 
uma floresta (terreno tipo 2), a linha 
1830 subtrai 2; se se encontrava em mo- 
vimento, a linha 1840 adiciona 1 (tro- 
pas em movimento são mais vulneráveis 
à artilharia). 

Finalmente, a linha 1850 soma o re- 
sultado a um quarto do poder da uni- 
dade atacante, mais uma parcela alea- 
tória — tudo isso vezes dez. O resulta- 
do corresponde ao total de baixas da 
unidade-alvo. As baixas são subtraídas 
do poder da unidade e, em seguida, a 
rotina que testa o moral é chamada. 





O CONFRONTO 


O resultado do combate corpo a cor- 
po é calculado de maneira similar: 


1510 REM Combate 

1520 IF (us<9 AND th<9) 

8 AND th>8) THEN RETURN 

1530 IF T(us,1)=5 OR T(th,1)=5 

THEN RETURN 

1540 GOSUB 2540 

1550 PRINT AT 18,0;"Combate !!" 

1560 LET at=INT ((T(us,7)-T(th, 

7))/50) 

1570 LET at=at+T(us,3)-T(th,4)+ 

T(us,5)+EN r(5) 

1580 IF ABS (T(us,2)-T(th,2))S2 

2 THEN LET at=at+2 

1590 IF us<) OR us=9 OR us=l0 T 

HEN LET at=at+l 
1600 LET dr=INT 

7))/60) 

1610 LET df=df+T(th,3)-T(us,4)+ 

T(th,5)+m(T(th,B),T(Lth,9))+EN r 
(3) +2 

1615 LET wn=th: LET lo=us 

1620 IF at>df THEN LET wn=us: 

LET lo=th 

1630 LET wc=INT (T(wn,7)/10): T 

EF wc<l THEN LET wc=l 

1640 LET T(wn,7)=T(wn,7)-wc 

1650 LET 1lc=INT (T(1l0,7/)/5): IF 
lc<l THEN LET lc=1 


OR (us> 


((T(lth,7)-Tlus, 





1660 LET T(lo,7)=T(lo,7)-lc 
1670 PRINT wn;" perde ";wc;" "; 
perde ":lc 
1680 GOSUB 2410 
1690 LET unslo: 
1700 RETURN 





GOSUB 2200 


1510 REM COMBATE 
1520 IF (US<9 AND TH<9) OR (US> 
8 AND TH>8) THEN RETURN 
1530 IF T(US,1)=5 OR T(TH,1)=5 
THEN RETURN 
1540 GOSUB 2540 
1550 LOCATE 0,19:PRINT "COMBATE 
114” 

1560 AT=INT((T(US,7)-T(TH,7))/5 
0) 
1570 AT=AT+T(US,3)-T(TH,4)+T (US 
(5)+EN R(5) 
1580 IF ABS(T(US,2)-T(TH,2))<>2 
THEN AT=AT+2 
1590 IF US<3 OR. US=9 OR US=10 T 
HEN AT=AT+] 
1600 DR=INT((T(TH,7)-T(US,7))/6 
0) 
1610 DE=DF+T(TH,3)-T(US,4)+T(TH 
(SJ +MIT(TH,8), T(TH,9))+EN R(3)+ 
, 
1615 WN=TH: LO=US 
1620 IF AT>DF THEN WN=US:LO=TH 
1630 WC=INT(T(WN,7)/10):IF WC<1 
THEN WC=1 
1640 T(WN,7)=T(WN,7)-WC 
1650 LC=INT(T(LO,7)/5):IF LC<1 
THEN LC=1 

- 1660 T(LO,7)=T(LO,7)-LC 








1670 PRINT WN;"PERDE";WC;".";LO 
: "PERDE"; LC 

1680 GOSUB 2410 

1690 UN=LO:GOSUB 2200 

1700 RETURN 





1510 REM COMBATE 

1520 IF (US < 9 AND TH < 9) OR 
(US > 8 AND TH > 8) THEN  RETU 

RN 

1530 IF T(US,1) = 5 OR T(TH,1) 
= 5 THEN RETURN 

1540 GOSUB 2540 

1550 VTAB 21: PRINT "COMBATE ! 
ti”: GOSUB 30000 

1560 TT = INT ((T(US,7) - T(TH 
7)) / 50) 

15720 TT = TT + T(US,3) - T(TH,4 

) + T(US,5) + FN R(5) 

1580 IF ABS (T(US,2) - T(TH,2 


J) 4 > 2 THENTTO=TT+2 
1590 IF US < 3 OR US = 9 OR US 
= 10 THEN TT = TT +1 


1600 DR = INT ((T(TH,7) - TIUS 
7)) 4 60) 
1610 DF = DF + T(TH,3) - T(US,4 


) + T(TH,5) + M(T(TH,B), T(TH,9) 
RR O 
1615 WN = TH:LO = US 


1620 JIF TT > DF THEN WN = US:L 
O = TH 
1630 WC = INT (T(WN,7) / 10): 


IF WC < 1 THEN WC = 1 

1640 T(WN,7) = T(WN,7) - WC 
1650 LC = INT (T(LO,7) / 5): 1 
F LC < 1 THEN LC = 1 
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1660 T(LO,7) = T(LO,7) - LC 
1670 PRINT WN;”" PERDE ";WC;" ” 
;LO;” PERDE ";LC: GOSUB 30000 
1680 GOSUB 2410 

1690 UN = LO: GOSUB 2200 

1700 RETURN 


Substitua as seguintes linhas: 


1550 VTAB 21: PRINT "COMBATE ! 
dO Rey 

1670 PRINT WN;” 
;LO;” PERDE ";LC 


1510 REM COMBATE 

1520 IF (US<9 AND TH<9) OR (US> 

8 AND TH>8) THEN RETURN 

1530 IF T(US,1)=5 OR T(TH,1)=5 

THEN RETURN 

1540 GOSUB 2540 

1550 DRAW"BMO,144":AS="COMBATE! 
!”" :GOSUB 3190 

1560 AT=INT((T(US,7)-T(TH,7))/5 
0) 

1570 AT=AT+T (US,3)-T(TH,4)+T(US 
5) +RND(5) 

1580 IF ABS(T(US,2)-T(TH,2))<>2 
THEN AT=AT+2 

1590 IF US<S3 OR US-9 OR US=10 T 
HEN AT=AT+1 

1600 DE=INT((T(TH,7)-T(US,7))/6 
Õ) 

1610 DE=DE+T(TH,3)-T(US,4)+T(TH 
5)+MITITH,B), T(TH,9)) +RND(3) +72 


PERDE “iNC;”" * 





= — = — ——— me 


1615 WN=TH: LO=US 

L620 IF AT>DF THEN WN=US:LO=TH 
1630 WC=INT(T(WN,7)/10):1IF WC<] 
THEN WC=1 

1640 T(WN,7)=T(WN,7)-WC 

1650 LC=INT(T(LO,7)/5):IF LC<l 
THEN LC=1 

1660 T(LO,/)=T(LO,7)-LC 

1670 DRAW"BMO, 160" :AS-STRS (UN) + 
" PERDE"+STRS (WC) +” "+STRS(LO)+ 
" PERDE"+STRS (LC) :GOSUB 3190 
16BU GOSUB 2410 

1690 UN=LO:GOSUB Z200 

1700 RETURN 


Essa rotina é chamada sempre que 
duas unidades se encontram no tabulei- 
ro. Se elas forem do mesmo exército, a 
rotina é imediatamente interrompida. O 
mesmo acontece se uma das unidades es- 
tiver em retirada — linha 1530. 

A principal diferença entre o combate 
balístico e o corpo a corpo é que, no se- 
gundo caso, as duas unidades entram em 
ação. O combate corpo a corpo é, por- 
tanto, mais complexo, exigindo que se 
calculem as baixas dos dois lados. 

A linha 1560 dá ao atacante uma no- 
ta igual a um quinto da diferença entre 
o poder das duas unidades. Em segui- 
da, a diferença entre a arma do atacan- 
te e a armadura do atacado é somada 
ao valor do moral do atacante mais um 
número aleatório de 1 a 5. 

Aquele que ataca tem um bônus adi- 
cional se o inimigo não estiver de fren- 


MUITA. 





te. Inclui-se nessa situação o atacante 
que se movia em direção diferente da do 
inimigo — se ele estiver parado, a dire- 
ção de seu último movimento será con- 
siderada. Por isso, nunca apagamos o 
elemento de direção de uma unidade, 
após uma ordem “ALTO”. Finalmen- 
te, o atacante tem também um bônus se 
for uma unidade de cavaleiros. 

A nota da unidade atacada é calcu- 
lada de modo semelhante, correspon- 
dendo à soma destes elementos: um sex- 
to da diferença de poder, a diferença en- 
tre a arma do atacante e a armadura do 
atacado, o moral do defensor, um bô- 
nus que depende do terreno, um bônus 
fixo de 2, um número aleatório de 1 a 
3. Esses cálculos têm como pressuposto 
que defender é mais fácil que atacar. As 
vezes, porém, o entusiasmo do atacan- 
te pode neutralizar tal vantagem. 

Assim, os atacantes obterão uma no- 
ta (AT) e os defensores outra (DF). A 
unidade que alcança o valor mais alto 
ganha a batalha, perdendo apenas um 
décimo de seu poder. Já o poder do der- 
rotado é reduzido em um quinto. 

Finalmente, a rotina que testa o mo- 
ral é chamada para o derrotado. 


- OMORAL 


O fator psicológico tem grande peso 
numa guerra. É bem possível que um 
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exército seja derrotado, mesmo que es- 
teja equipado com as melhores armas do 
mundo, se a tropa detestar seus gene- 
rais, simpatizar com a causa inimiga ou, 
simplesmente, não quiser lutar. 

A psicologia humana é muito com- 
plexa e não. pretendemos reproduzi-la 
aqui. Em Capa e Espada o moral in- 
fluencia apenas a sobrevivência da uni- 
dade-e o resultado do combate. 

2200 REM Moral 

2210 IF T(un,6)-T(un,7)<((T(un, 
6)/100)*((T(un,5)+2))) THEN RE 
TURN 

2220 GOSUB 2540 

2230 PRINT AT 18,0;" As perdas 
foram fao grandes” 

2240 PRINT AT 19,0;" que a unid 
ade ";un;”" se desintegra” 

2250 GOSUB 2410 

2260 LET T(un,1)=5 

2270 PRINT AT T(un,8),T(un,9);” 


2280 RETURN 


2200 REM MOBAL 

2210 IF T(UN,6)-T(UN,/)S((TIUN, 
6)/100)*((T(UN,5)+2))) THEN RET 
URN 

2220 GOSUB 2200 

2230 LOCATE 0,19:PRINT 
AS FORAM TÃO PESADAS” 


“AS PERD 





| | | | 


2240 PRINT "QUE A UNIDADE" ;UN;" 
SE DESINTEGRA” 

2250 GOSUB 2410 

2260 T(UN,1)=5 

2270 PUVRTR T (UN,9), T(UN,8B): PRI 
NT ” 

2280 RETURN 


1 


2200 REM MORAL 
2210 IF T(UN,6) - T(UN,7) < (( 
T(UN,6) / 100) * ((T(UN,5) + 2) 
)J) THEN RETURN 
2220 GOSUB 2540 
2230 VTAB 21: PRINT "AS BAIXAS 


FORAM MUITO GRANDES” 

2240 PRINT "A UNIDADE ";UN;" 5 
E DESINTEGROU” 

2250 GOSUB 2410 

2260 T(UN,1) = 5 

2270 X = T(UN,9):Y = T(UN,8):N 
= 14: GOSUB 10000 

2280 RETURN 


[ol 
Adicione as seguintes linhas: 


2545 COLOR= 0: FOR I = 160 TO 
191 

2550 HPLOT 0,I TO 279,I: NEXT 
: RETURN 

30000 RETURN 


2200 REM MORAL 
2210 IF T(UN,6)-T(UN,7)<((T(UN, 
6)/100)*((T(UN,5)+2)*10)) THEN 
RETURN 
2220 GOSUB 2540 
2230 DRAW"BMO,152”:A$="AS PERDA 
S FORAM MUITO GRANDES" :GOSUB 31 
90 
2240 DRAW"BMO, 160" :AS="UNIDADE” 
+STR$ (UN) +” SE DESINTEGRA” :GOSU 
B 3190 
2250 GOSUB 2410 
2260 T(UN,1)=5 
2270 X9=T(UN,9)*8:Y9=T(UN,8)*8: 
LINE (X9,Y9)-(X9+7,Y9+7), PRESET, 
BF 
2280 RETURN 
A linha 2210 subtrai o poder atual do 
poder inicial da tropa, comparando o re- 
sultado com o moral. Se a unidade so- 
freu uma perda de 30% e tem o moral 
baixo, ela se dispersa e não participa 
mais do jogo. Se o moral for mais ele- 
vado, uma unidade poderá perder até 
70% do poder antes de se dispersar. 
Quando uma unidade não passa no 
teste do moral, as linhas 2230 e 2240 
transmitem uma mensagem informando 
a dispersão. O elemento de comando da 
matriz da tropa passa a valer 5, o que 
significa que a tropa bateu em retirada. 
“À unidade é apagada da tela e ignora- 
da. Porém, como há desertores espalha- 





dos pelo campo de batalha, a unidade 
poderá dificultar o movimento de tro- 
pas, apesar de estar invisível. 


[O ENFIM, A PAZ 


Entre os últimos detalhes que preci- 
samos incluir no programa está uma ro- 
tina de verificação do fim do jogo. 


2290 
2300 
2310 
2320 
qd+1 
2330 IF T(m+8,1)<>5 THEN LET b 
d=bd+1 

2340 NEXT m 

2350 IF qd>bd*2 OR 
>2) THEN LET vc=l1 
2360 IF bd>gd*2 OR 
22) THEN LET de=] 
2370 RETURN 

23480 REM Fim 

2390 IF vc=1 THEN PRINT 
IA 111º 

2395 IF de=1l THEN PRINT 
umilhante derrota.” 

2400 RETUABN 


io 
2290 
2300 
2310 


2320 
2330 





REM Vitoria 

LET qd=0: LET bd=0 

FOR m=1 TO 8 

IF T(m,1)<>5 THEN LET qgd= 


(bd<2 AND qd 


(gd<2 AND bd 


“VITOR 


“Uma h 


REM VITÓRIA 

GD=0: BD=0 

FOR M=1 TO B 

IF T(M,1)<>5 THEN GD=GD+1 
IF T(M+8,1)<>5 THEN BD=BD+ 


1 

2340 NEXT M 

2350 IF GD>BD*2 OR (BD<2 AND GD 
>2) THEN VC=1 

2360 IF BD>GD*2 OR 
22) THEN DE=1 

2370 RETURN 

2380 REM FIM 

2390 IF VC=1 THEN PRINT 
a tir 

2395 IF DE=1 THEN PRINT 
MILHANTE DERROTA. * 

2400 RETURN 


Led) 


2290 
2300 


(GD<2 AND BD 


"VITOÓRI 


"UMA HU 


REM VITORIA 
GD = 0:BD = O 

2310 FORM = 1 TOB 

2320 1F T(M,1) << > 5 THEN GD 
= GD + 1 

2330 IF T(M + B,1) < 
BD = BD + 1 

2340 NEXT M 

2350 IF GD > BD* 2 OR 
AND GD > 2) THEN VC = 1 


> 5 THEN 


(HD < 2 


2360 1F BD > GD* 2 OR (GDS 2 
AND BD > 2) THEN DE = 1 

2370 RETURN 

2380 REM FIM 

2390 IF VC = 1 THEN PRINT FVI 
TORIA !!!”": GOSUB 30000 





2395 IF DE = 1 THEN PRINT “UM 
A HUMILHANTE DERROTA”: GOSUB 30 
000 


2400 RETURN 


[O] 


Modificações do programa do Apple: 


2390 IF VC = 1 THEN PRINT "VI 
TORIA 1!1* 
2395 IF DE = 1 THEN PRINT “UM 


A HUMILHANTE DERROTA” 


2290 
2300 
2310 
2320 
2330 
1 

2340 


REM VITORIA 

GD=0 :BD=0 

FOR M=1 TO 8 

IF T(M,1)<2>25 THEN GD=GD+1 
IF T(M+8,1)<25 THEN BD=BD+ 


NEXT M 

2350 IF: GD>BD*2 OR (BD<2 AND GD 
22) THEN VC=1 

2360 IF BD>GD*2 OR 
>2) THEN DE=1 

2370 RETURN 

2380 REM FIM 

2390 IF VC=1. THEN DRAW"BMO,176" 
:'AS="VITORIA !!1":GOSUB 3190 
2395 IF DE=1 THEN DRAW"BMO,176" 
:AS="UMA HUMILHANTE DERROTA." :G 
OSUB 3190 

2400 RETURN 


A rotina verifica se um dos adversá- 
rios conta com o dobro de unidades do 
outro ou se um deles tem menos de duas 
unidades. Uma mensagem informa aos 
jogadores o resultado. 

Poderíamos acrescentar outras con- 
dições de vitória. Por exemplo, um fa- 
tor que decidiu muitas guerras do perío- 
do medieval foi a morte do líder. Po- 
rém, a incorporação desse elemento a 
um jogo, além de trazer outros proble- 
mas, façia com que a atenção dos joga- 
dores estivesse permanentemente volta- 
da para uma das unidades. 

Uma unidade também poderia obter 
a vitória se atingisse a extremidade opos- 
ta do mapa com metade de seus efeti- 
vos, ou metade de seu poder. Outro cri- 
tério seria pelo total de baixas. Nesse ca- 
so, teríamos de acrescentar uma variá- 
vel para calcular o número. 


(GD<2 AND BD 


“ALEA JACTA EST 





Já digitamos todas as rotinas neces- 
sárias ao jogo. Agora, precisamos ape- 
nas incluir um laço principal, que as 
chame ordenadamente: 


10 CLEAR 
30 GOSUB 190 








40 GOSUB 470 
50 GOSUB 860 
60 REM Loop 
70 FOR i=] TO 8 
80 IF T(i,1)<4 THEN  GOSUB 
1380: IF vy>2 THEN  GOSUB 1900 
90 IF T(i,1)<5 THEN INK 1: 
PRINT AT T(1,8),T(i,9);uS(i) 
100 NEXT à 
110 FOR e=9 TO 16 
120 IF T(e,1)<4 THEN  GOSUB 
2140 
130 NEXT e 
140 GOSUB 1020 
150 GOSUB 2290 
160 IF vc<>1 AND de<>l THEN 
GoTo 60 
170 GOSUB 
180 STOP 
2410 REM Atraso 
2420 PRINT AT 21,7," [QUALQUER T 
ECLA|" 
2425 LET qS=INKEYS: 
EN GOTO 2425 
2430 RETURN 


10 CLEAR 5000 

30 GOSUB 190 

40 GOSUB 470 

50 GOSUB 860 

70 FOR I=1 TO & 

BO IF T(I,1)<4á THEN GOSUB 1380: 
IF YW>2 THEN GOSUB 1900 

90 IF T(I,1)<5 THEN LOCATE T(I, 
9),T(1,8): PRINT CHAS(U(I)); 


2380 


IF q9="" TH 


100 NEXT I 
110 FOR E=9 TO 16 
120 IF T(E,1)<4 THEN GOSUB 2140 


130 NEXT E 

140 GOSUB 1020 

150 GOSUB 2290 

160 IF VC<>1 AND DE<>1 THEN E» 
170 GOSUB 2380 
180 END 

2410 REM ATRASO 
2420 LOCATE 5,22: 
QUALQUER TECLA” 
2425 GS=INKEYS:IF G$="" THEN 24 
25 

2430 RETURN 


Lá] 


30 GOSUB 190 

40 GOSUB 470 

50 GOSUB 860 

70 FORI =1TOB 

80 JIF T(I,1) < 4 THEN GOSUB 1 
380: IF YW > 2 THEN GOSUB 1900 
90 IF T(I,1) < 5 THEN X = T(I, 
9):7 = T(I,8):N = VAL ( MIDS ( 
100 NEXT I 

110 FOR E = 9 TO 16 
120 IF T(E,1) < 4 THEN 
2140 
130 
140 


PRINT “APERTE 


GOSUB 


NEXT E 

GOSUB 1020 

150 GOSUB 2290 

160 IF VC< > 1 ANDDES 21 
THEN GOTO 70 


170 GOSUB 2380 

180 END 

475 REM XKXXXXXXXXKXKXXXKXKXKHHKX 
XXXXKXKKKKKK KO EO EEE DE EEE 
XXKXXKKXKKKKIKNK ORM DEDO EI 
XXXKXXKXKXKXKKXKXKKXHKKR NR E O DO 
XXKXKKKKKK IO OR ICO DEE DEDE 
KKK OIE DE EO IR ED DEDE DE O 
XXXKKXKXKMIM MM DM DE DEDE DE EE DEDE E DEE 
XXXXKKKKXKKKKKKKX HH HMM 

476 REM XKXXXXKKXKXXXKKXXXXXXHX 
XXXKKKKKMIM IME DOE DE IC DDD DD DE 
KKK IODO DEE DE EE II CD E DME DEDE 
XXXXXXKKKKKXKKXKXXKXXKXKKXKKHA A 
HXXXXXXXKKKKNHXK HAHAHAHAHAHA 
XXXXXKKKXKXXKXXKXKKKKKKKHXKKKHKA 
XXXXXKXXKKKKKIR MODO E DI E 
RXKXKXKHXKKEMKK IM OM O 

2410 REM ATRASO 

2420 PRINT "APERTE QUALQUER TE 
CLA” ;: GOSBUB 30000 

2425 GET G8: 

2430 RETURN 

30000 FOR QQ = 1616 TO 2000 ST 
EP 128 

30010 FOR WW = O TO 39 

30020 POKE 0Q0 + WW + 1024, PEE 
K (00 + WW) 

30030 NEXT WW,00 

30040 RETURN 


LC] 


Modificações a serem feitas no pro- 
grama acima: 


2420 PRINT "APERTE QUALQUER TE 
CLA”; 


10 CLEAR 500: PMODE 3,1:COLOR2,1 
:PCLS: SCREEN 1,0:DU=RND(-TIMER) 
18 GOSUB 2410:CLS:END 

30 GOSUB 190 

40 GOSUB 470:GOSUB 3130 

50 GOSUB 860 

60 REM 

70 FOR I=1 TO 8 

80 IF T(I,1)<4 THEN GOSUB 1380: 
IF Y>2 THEN GOSUB 1900 

90 IF T(1,1)<5 THEN COLOR 3:DRA 

W"BM"+STRS(T(1I,9)*8)+","+STRS(T 
(1,8) *8) :UU=VAL (MIDS (US, 1,1)):A 

8=UCS (UU) :GOSUB 3000 

100 NEXT I 

110 FOR E=9 TO 16 

120 IF T(E,1)<4 THEN GOSUB 2140 
130 NEXT E 

140 GOSUB 1020 

150 GOSUB 2290 

160 IF VC<>1 AND DE<>1 THEN 60 
170 GOSUB 2380 

190 REM INICIO 

200 VC=0:DE=0 

2410 REM ATRASO 

2420 DRAW"BMB0,176":AS="APERTE 

QUALQUER TECLA" :GOSUB 3190 

2425 GS=INKEYS: IF G3="" THEN 24 
25 

2426 LINE(0,176)-(255,183),PRES 


ET,BF. 
2430 RETURN 


Em primeiro lugar, todos os micro- 
computadores, com exceção dos perten- 
centes às linhas Apple e TK-2000, lim- 
pam a memória. O TRS-Color selecio- 
na o modo gráfico. Em seguida, as ro- 
tinas que criam os blocos gráficos e de- 
senham o mapa são chamadas. 

O laço principal começa na linha 60 
e termina na linha 160. Ele permite que 
tanto o jogador quanto o computador 
dêem ordens às suas respectivas unida- 
des. Depois, a rotina que faz com que 
as unidades obedeçam às ordens é exe- 
cutada dezesseis vezes, seguida de uma 
chamada para verificação de final de jo- 
go. O laço se repete enquanto um dos 
lados não vencer. 

Ao final da listagem (começando na 
linha 2410), temos uma rotina encarre- 
gada de provocar uma pausa em deter- 
minados momentos do jogo. 





AS INSTRUÇÕES 


Ao ser executado, o programa dese- 
nha o mapa com os diferentes terrenos, 
a moldura e as tropas beligerantes. 

Este é o momento de planejar sua es- 
tratégia. Uma série de mensagens sur- 
girá na janela de texto. Começando com 
a unidade um, são mostrados na tela o 
número e o tipo de homens da unidade, 
juntamente com suas últimas ordens — 
“ALTO”, por exemplo. O jogador é en- 
tão questionado sobre uma possível mu- 
dança de ordens. 

Se a resposta for Sim, um menu com 
as opções FOGO, ALTO, MARCHE e 
STATUS é exibido. A opção de atirar 
aplica-se somente aos arqueiros e, se se- 
lecionada indevidamente para qualquer 
outra unidade, surgirá na tela a mensa- 
gem “SEM ARCOS”. Quando a opção 
MARCHE for selecionada, o computa- 
dor pedirá que se indique a direção 
(N,S,L,O). 

Esse processo se repete para cada uni- 
dade, cuja cor é modificada para orien- 
tar o jogador. 


O QUE FALTA? 





Neste estágio, Capa e Espada é um 
jogo de guerra bem simples, mas, ain- 
da assim, bastante divertido. 

Na última parte da série, veremos co- 
mo transformar o computador em um 
jogador mais habilidoso. Mas, especial- 
mente se você for um principiante, ten- 
te jogar Capa e Espada como está, pa- 
ra apreciar os principais aspectos desse 
tipo de jogo. 








á | | | 
| 
| 1 
; 


AVALANCHE: 
O TEMPO 


Como se Willie já não tivesse proble- 
mas suficientes com os buracos, as ser- 
pentes e a maré, uma nuvem escura pro- 
mete chuva, ameaçando molhar seu lan- 
che! Mas não se preocupe se você não 
for usuário do Spectrum ou do MSX. 
Troveja apenas nas versões de Avalan- 
che para esses micros. 

Willie está com mais sorte no progra- 
ma do TRS-Color. Não há nuvens no 
céu e um belo sol de verão brilhará du- 
rante todo o jogo. 


A seguinte rotina desenha uma nu- 
vem que se movimenta de acordo com 
a direção do vento: 


10 REM org 58795 

20 REM cló ld a, (57347) 

30 REM dec a 

ld (57347),a 

cp O 

jr z,cdm 

ret 

cdm ld a,6 
(57347),a 

| a,45 

bc,16384 

h1, (57345) 

Ld d,3 

REM ld e,?2 

call blk 

ld a, (57348) 

cp O 

JF E,Ccrt 

dec hl 

àr chm 

crt inc hl 

| chm ld (57345),hl 

ld bc,57144 

ld a,47 

ld d,3 


sbc hl,de 

jr nz,cenr 

ld a,0 
| ld (57348),a 
ref 
cnr ld de,l44 
ld h1l, (57345) 
sbc hl,de 
jr nz,enl 
ld a,l 
REM ld (57348),a 


400 BEM cnl ret 
ql) REM org 58970 
420 REM blk * 


A posição de memória 57347 contém 
o atraso da nuvem. Essa variável con- 
trola a rapidez com que ela se movimen- 
ta pelo céu. Quando se inicializa o nível 
do jogo, a velocidade é especificada por 
meio de um número que é carregado 
nessa posição. 

Depois de carregado no acumulador, 
o atraso da nuvem é decrementado e ar- 
mazenado de volta em 57347. Se seu va- 
lor tiver sido reduzido a zero, as instru- 
ções cp O e jr z saltam a instrução ret e 
dão prosseguimento à rotina que movi- 
menta a nuvem. Caso contrário, o pro- 
cessador retorna e adia o movimento da 
nuvem até que o valor do atraso tenha 
sido reduzido a zero. 





CÉU AZUL 


A rotina encarregada de movimentar 
a nuvem começa acertando a variável de 
atraso. Repare que, se o valor desta já 
foi reduzido a O, um outro decremento 
resultaria em 255. Para que o atraso che- 
gasse novamente a 0, a rotina precisa- 
ria ser chamada 256 vezes — o que tor- 
naria o movimento da nuvem extrema- 
mente lento. Para evitar que isso ocor- 
ra, o número 6 é carregado no acumu- 
lador e colocado no endereço 57347. 
Com o atraso assim restabelecido, uma 
suave e refrescante brisa passa a empur- 
rar a nuvem, o que você pode constatar 
observando a tela. 

O número 45 é carregado no acumu- 
lador. Ele será aproveitado pela rotina 
bIk, que imprime um bloco de caracte- 
res. As dimensões do bloco devem ser 
carregadas nos registradores De E — D 
carrega o número de colunas e E, o nú- 
mero de linhas. À rotina blk, por sua 
vez, utiliza a rotina print, que tem sido 
empregada com fregiiência neste jogo. 
O par de registros HL deve, então, car- 
regar a posição de tela; o par BC, o 
apontador de dados, e o acumulador A, 
a cor do caractere. 

O número 5 — código da cor azul 
ciano sobre azul ciano — é carregado no 
acumulador, pois a rotina imprime ca- 
racteres de céu sobre a nuvem, apagan- 


Meteorologia pode não ser seu ponto 
forte, mas chegou a hora de adicionar 
um pouco de tempestade ao jogo. 
Avalanche tem agora nuvens ou sol, 
conforme a versão do programa. 


do-a. Depois disso, imprime a nuvem 
uma posição para a direita ou para a es- 
querda, dependendo da direção em que 
o vento está soprando. 

O par de registros BC é carregado 
com o endereço inicial dos padrões. Es- 
se endereço irá fornecer os dados apro- 
priados ao bloco azul de céu. O par HL 
é carregado com o conteudo de 57345 
e 57346, que são os apontadores da po- 
sição atual da nuvem. 

A nuvem tem três colunas de compri- 
mento por duas linhas de altura. Assim, 
3 é carregado em D e 2, em E. Em se- 
guida, a rotina blk é chamada e impri- 
me o bloco de caracteres de céu azul, 
apagando a nuvem. 





DIREÇÃO DO VENTO 


A nuvem deve se movimentar na di- 
reção em que o vento está soprando. Pa- 
ra isso, utiliza-se a posição de memória 
57348, originalmente ajustada pela ro- 
tina de inicialização, como uma baliza. 
Se ela contém o valor 1, o vento está so- 
prando para a esquerda; se contém o va- 
lor O, o vento está soprando para a 
direita. 

O conteúdo de 57348 é carregado no 
acumulador. Se seu valor for 0, a ins- 
trução jr z salta para o rótulo crt e o 
apontador de posição da nuvem é incre- 
mentado, movendo-se uma posição pa- 
ra a direita na tela. Se o conteúdo de 
57348 for 1, a instrução jr z não atua 
e o par de registros HL é decrementa- 
do, movendo o apontador de posição da 
nuvem um caractere para a esquerda. À 
próxima instrução jr z simplesmente sal- 
ta sobre a instrução inc. 


-“SOPRANDO AS NUVENS 





O conteúdo de HL é trazido de volta 
para o apontador de posição da nuvem, 
nos endereços 57345, ajustando-o. Em 
seguida, o apontador de dados BC é car- 
regado com o endereço inicial dos da- 
dos da nuvem. 

O acumulador é carregado com 47 — 
código de branco sobre fundo ciano, a 
cor da nuvem. O registro D é carregado 
com 3 e o registro E, novamente com 2. 











A nuvem é do mesmo tamanho daque- 
la que foi apagada. 

Depois disso, a rotina blk é chama- 
da e imprime a nuvem em sua nova po- 
sição na tela. 

O movimento da nuvem pode levá- 
la até o canto do vídeo. A parte dela que 
ultrapassar a primeira ou a última co- 
luna será impressa na linha seguinte ou 
na linha de cima, provocando a desfi- 
guração de sua forma. 

Para evitar que isso aconteça, o pro- 
grama verifica primeiro se a nuvem al- 
cançou o extremo esquerdo do video. O 
par DE é carregado com 129 — a posi- 
ção de tela do canto esquerdo da linha. 
Esse valor é subtraído do apontador de 
posição da nuvem no par HL. Se o re- 














M DESENHO DA NUVEM 
Ho DIREÇÃO DO VENTO 
E 
Eu 


OS CARACTERES 
DO CÉU AZUL 
O EFEITO DO ATRASO 


sultado não for O, a nuvem não chegou 
no canto esquerdo. A instrução jr nz sal- 
ta então para verificar se ela alcançou 
o canto direito. 

Se o resultado for 0, a nuvem atin- 
giu o canto esquerdo e o salto não ocor- 
re. O acumulador é então carregado 
com O e esse valor é transferido para a 
baliza de direção do vento, de modo que 
a nuvem se desloque para a direita na 
próxima vez. 

A rotina crr verifica se a nuvem che- 
gou ao canto esquerdo do vídeo sub- 
traindo o número 144 do apontador de 
posição. Se ela atingiu o canto direito 
da linha, o valor 1 é carregado no indi- 
cador da direção do vento. Na próxima 
vez, a nuvem irá para a esquerda. 


MUDANÇA DE DIREÇÃO 


CÉU ENCOBERTO 


E 

Ed 

E O MOVIMENTO DAS NÚVENS 
[E 


VERIFICAÇÃO DA POSIÇÃO 


LE O SOL NO TRS-COLOR 


O BLOCO DA NUVEM 





Esta rotina imprime um bloco de ca- 
racteres na tela, com D colunas de com- 
primento por E linhas de altura. 


10 REM 
20 REM 
REM 
REM 
REM 
REM 
70 REM 
REM 
REM 
' REM 
REM 
' REM 
REM 
' REM 
REM 
| REM 
REM 
REM 
REM 
REM 


org 58970 
blk pueh hl 
blij push de 
push hl 

z push de 
call print 
inc hl 

pop de 

dec d 

yr ng,£ 

pop hl 

ld de,32 
add hl,de 
pop de 

dec e 

àr nz,blj 
pop hl 

ret 

org 58217 
200 print * 

O programa anterior, que movimen- 
ta a nuvem, utiliza a rotina blk. Portan- 
to, não irá trabalhar até que a rotina que 
acabamos de apresentar esteja guarda- 
da na memória. Esta, por sua vez, não 
entrará em funcionamento sem que a ro- 
tina print, que também é chamada, se 
encontre na memória. 


É O BLOCO CERTO? 


O apontador da posição de tela em 
HL e o número de colunas e linhas que 
estão em DE são armazenados na pilha 
duas vezes. Isso é feito porque a rotina 
trabalhará com duas dimensões, usan- 
do dois laços. 

Como os parâmetros já estão arma- 
zenados, a rotina print é chamada e im- 
prime o primeiro caractere na tela. O 
par HL é incrementado, movendo-se um 
caractere para a direita. As dimensões 
do bloco são recuperadas da pilha e o 
parâmetro horizontal — equivalente ao 
número de colunas — é decrementado. 
Se o parâmetro não foi reduzido a 0, a 
instrução jr nz volta ao início do laço 
para imprimir outro caractere da nuvem 
nessa linha da tela. 


Mi) 





REG E 





Quando o registrador D for 0, a pri- 
meira linha do bloco estará completa. 
Em seguida, recupera-se o par HL da pi- 
lha e adiciona-se o número 32 ao seu va- 
lor. Como se trata de uma adição de nú- 
meros de dezesseis bits, a operação é fei- 
ta por intermédio do par DE. O resul- 
tado fica no par HL, fazendo com que 
esse apontador de tela se mova uma li- 
nha para baixo. O par DE é novamente 
recuperado da pilha, para ajustar o va- 
lor em D e para decrementar o valor em 
E. Esse registrador conta o número de 
linhas que falta. 

Se o valor no registro E não tiver si- 
do reduzido a 0, a instrução jr nz man- 
da o processador de volta ao início do 
laço, para começar a impressão de uma 
nova linha. 

Quando o valor de E for 0,0 processa- 
dor sai do laço e o par HL é recuperado 
da pilha, ajustando o apontador de tela 
para as checagens que serão realizadas. 
Lembre-se de que precisamos verificar 
se a nuvem não atingiu nenhum dos can- 
tos da tela. 

Depois disso, a rotina blk retorna ao 
programa principal deste artigo. 


da 


Na versão de Avalanche para o TRS- 
Color, a inclusão de uma nuvem exigi- 
ria um conjunto adicional de dados ou 
padrões. Ainda que isso não constituís- 
se um problema, haveria um outro obs- 
táculo: o conjunto de cores já definido 
é azul, vermelho e verde — nenhuma de- 
las, portanto, é adequada para a nuvem. 
Como nesta versão a aventura transcor- 
re num dia muito quente — com o céu 
avermelhado —, uma nuvem não é real- 
mente essencial. A rotina a seguir mo- 
vimenta o sol durante o jogo. 


10 ORG 19727 
20 MOVSUN DEC 18258 


30 BNE SUNRET 
40 LDA 45 
50 STA 18258 
60 SYNC 
70 LDX 41569 
80 LDA 430 
90 MOVA PSHS A 
100 LDA 42 
110 MOVB ANDCC 4SFE 
120 PSHS CC 
130" CLRB 
140 MOVC PULS CC 
150 ROR B,X 
160 PSHS CC 
170 INCB 
180 CMPB 414 
190 BNE MOVC 
LSL,X 
É 210 PULS Cc 
| 220 ROR,X 





230 DECA 

240 BNE MOVB 
250 LEAX 32,X 
260  PULS A 

270 DEC A 

280 BNE MOVA 
290 SUNRET RTS 


Para testar a rotina, digite o seguin- 
te programa: 
10 EXEC 19426 
20 EXEC 19727 
30 GOTO 20 


A posição de memória 18258 contém 
a variável de atraso do sol. Essa variá- 
vel impede que o atraso risque o céu co- 
mo se fosse um disco voador, e é ajus- 
tada, inicialmente, com 5. 

A primeira instrução da rotina decre- 
menta o atraso do sol, Se o valor dessa 
variável for 0, a instrução BNE é des- 
viada para a instrução RT'S do final da 


| | 


iu F, 
— p= 


: 


rotina e o processador retorna. Caso 
contrário, a instrução BNE não realiza 
o desvio e o processador continua com 
o restante da rotina. Em outras pala- 
vras, O movimento do sol sofre um atra- 
so, já que a rotina é executada uma vez 
a cada cinco chamadas. 

Logo que é chamada, a rotina ajusta 
o atraso do sol, colocando o número 5 
no acumulador e armazenando-o de vol- 
ta na posição de memória 18258. 





SINCRONISMO 


O comando SYNC encarrega-se de 
sincronizar o restante da rotina com o 
sinal de TV. Isso é feito para resguar- 
dar a posição do sol da mudança que se 
efetuará na tela. O registro X é carre- 
gado com o endereço na tela do canto 
superior esquerdo do sol. O acumulador 











A é carregado com 30 (o sol tem 30 li- 
nhas de altura), valor que se guarda na 
pilha. Em seguida, A é carregado com 
2 — um contador de laço que fará o sol 
se deslocar lateralmente dois pontos na 
tela. 

A operação AND é efetuada entre 
o registro de código condicional e o 
número hexadecimal $FE. Como a re- 
presentação binária de SFE é 11111110, 
os sete bits mais significativos do re- 
gistro de código condicional permane- 
cem inalterados, enquanto o bit menos 
significativo é ajustado com O. Esse bit 
— ou seja, o bit O do registro de có- 
digo condicional — corresponde à ba- 
liza carry, que, portanto, é zerada nes- 
sa operação. 

O registro de código condicional é 
guardado na pilha. O registrador B, 
ajustado com 0, será usado como um 
compensador. A rotina está ajustada e 
pronta para realizar o deslocamento. 


| ROTAÇÃO DO SOL 


A parte seguinte da rotina que esta- 
mos examinando desloca o sol pelo céu. 
Para isso recupera da pilha o registro de 
código condicional, garantindo que, na 
primeira passagem do laço, o valor da 
baliza carry seja zero. 

A instrução ROR B,X roda uma po- 
sição para a direita os bits do endereço 
da tela apontado por X+B. A rotação 
desloca todos os bits. Assim, o último 
lugar desocupado no processo é carre- 
gado com o conteúdo da baliza carry, 
e o bit que ultrapassou o fim do outro 
lado é colocado nessa baliza. 

Os pontos que formam essa parte do 
sol são deslocados uma posição para a 
direita. O ponto no canto esquerdo é 
aceso (ajustado para 1) ou apagado 
(ajustado para 0, ou seja, adquire a cor 
do céu). O resto desse byte do sol é des- 
locado um ponto. 

O ponto colocado na baliza carry é 
preservado e a baliza volta para a pilha. 
O contador de laço em B é incrementa- 
do e comparado a 14 — número de ca- 
racteres da parte do céu ocupada pelo 
sol. A comparação permite-nos verifi- 
car se o último byte da área já foi des- 
locado. Se B for menor que 14, a ins- 
trução BNE manda o processador de 
volta, para continuar com o próximo ca- 
ractere. Chegando ao último caractere, 
o processador salta do laço. 


nas FINAL LIVRE 


Esta aventura se passa no hemisfério 
norte e o sol se move da esquerda para 
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a direita. Seria muito artificial se, ao al- 
cançar o final da tela ou esbarrar no es- 
core, O sol começasse a fazer o caminho 
de volta — isto é, da direita para a es- 
querda. 

Porém, como não existe noite na re- 
gião de Avalanche, nosso astro reapa- 
recerá à esquerda sempre que concluir 
seu percurso na tela. 

A instrução LSL ,X promove o des- 
locamento lógico para a esquerda do 
conteúdo da posição de tela apontada 
por X. O registrador X não foi altera- 
do nesta parte da rotina, e, por isso, ain- 
da aponta para o canto inferior esquer- 
do da figura do sol. Assim, o bit do can- 
to esquerdo é deslocado para fora do re- 
gistrador. O bit do canto direito, por 
sua vez, que já tinha sido deslocado do 
byte, é recuperado da pilha, voltando 
para a baliza carry. Em seguida, a ins- 
trução ROR ,X faz com que ele execute 
uma rotação sobre o canto esquerdo da 
posição de tela. 

O contador em A é decrementado e, 
se seu valor ainda não tiver chegado a 
0, o processador salta para deslocar o 
sol mais um ponto. 

Quando o deslocamento correspon- 
der a dois pontos, a instrução LEAX 
32,X adiciona o valor 32 ao conteúdo 
do registro X e movimenta o apontador 
da posição de tela para a próxima linha 
abaixo do sol. O contador de linha, re- 
cuperado da pilha para o acumulador, 
é, então, decrementado. Se seu conteú- 
do não for igual a 0, a instrução BNE 
manda o processador de volta para ro- 
lar a próxima coluna de caracteres. Ca- 
so contrário, o processador salta para 
a instrução RTS e retorna. 


q AE 


A rotina a seguir coloca na tela uma 
nuvem que se move pelo céu, empurra- 
da pelo vento: 


10 org 54270 
20 ld a, (-5208) 


30 dec a 

ao ld (-5208) ,a 
50 cp O 

60 jr *,61 

70 ret 


80 cl ld a,6 
90 ld (-5208),a 


100 ld a, (-5207) 

110 cp O 

120 4 2,€t 

130 ld h1l,-5210 

140 dec (hl) 

150 jr em 

160 ct ld h1,-5210 
170 inc (h1l) 

180 cm ld h1l, (62413) 
190 ld b,6 


200 ld a, (-5210) 
210 Id c,a 

220 ld d,20 

230 ld e,l 

240 call -11168B 
250 ld h1, (62413) 
260 ld de,4 

270 add hl,de 
280 ld b,6 

290 ld a, (-5210) 
300 add a,l6 

310 ld c,a 

320 ld d,24 

330 ld e,l 

340 call -11168B 
350 LO A, 45210) 
360 cp 2 

370 5r nz,cr 

380 ld a,0 

390 ld (-5207),a 
ano ret 

410 cr ld a, (-5210) 
420 cp 230 

430 Sr AR, CÊ 

440 ld a,l 

450 ld (-5207),a 
460 cf ret 

4/0 end 


O endereço — 5208 contém a variá- 
vel de atraso da nuvem. Essa variável 
controla a rapidez com que a nuvem se 
move. A velocidade foi especificada na 
parte da rotina principal que inicializa 
as variáveis, com a armazenagem do nú- 
mero 6 naquele endereço. 

O atraso da nuvem é carregado no 
acumulador, decrementado e novamen- 
te armazenado em — 5208. Quando a 
variável é reduzida a 0, as instruções cp 
O e jr z saltam a instrução ret, e o pro- 
cessador executa O restante da rotina 
que movimenta a nuvem. Enquanto is- 
so não ocorre, o processador retorna e 
adia o movimento da nuvem. Em outras 
palavras, a rotina é executada uma vez 
a cada seis chamadas. Utilizamos essa 
técnica de controle do sincronismo em 
várias partes deste jogo. 


DIREÇÃO DO VENTO | 


Antes de mais nada, a rotina acerta 
o atraso da nuvem. Lembre-se de que, 
para que ela prossiga, o conteúdo da va- 
riável de atraso precisa ser reduzido a ze- 
ro. Um outro decremento teria como re- 
sultado 255, pois, na representação bi- 
nária adotada pelo processador, —1 é 
o mesmo que 255. Assim, para uma no- 
va execução, a rotina teria que ser cha- 
mada 255 vezes, o que resultaria num 
movimento extremamente lento da nu- 
vem. Por esse motivo, O número 6 é car- 
regado em — 5208 pelo acumulador, 

Em seguida, o conteúdo de — 5207 é 
colocado no acumulador. Essa variável 
contém a direção do vento. Se for 0, 0. 





vento sopra para a direita; se for 1, pa- 
ra a esquerda. O endereço — 5210 con- 
tém a posição horizontal da nuvem. 
Apenas essa posição precisa ser altera- 
da, já que a nuvem se move na mesma 
linha, de um lado para outro. 

O valor de — 5207 é testado pela ins- 
trução ep 0. Se for 0, a instrução jr z sal- 
ta para o rótulo ct, o valor em — 5210 
é incrementado através de HL e a nu- 
vem se move para a direita. Se for 1, 0 
salto não ocorre, o valor em — 5210 é 
decrementado através do par HL e a nu- 
vem se move para a esquerda. 





FORMAÇÃO DA NUVEM 


Utilizamos sprites para imprimir a 
nuvem na tela do MSX. No final deste 
artigo, você terá explicações mais deta- 
lhadas sobre o emprego desse recurso 
gráfico em código de máquina. 

Para que esta parte do programa fun- 
cione, os padrões das figuras devem es- 
tar na memória. Além disso, é preciso 
que a rotina — 12121 — que transfere es- 
ses padrões da RAM para a tabela de 
padrões de sprites na VRAM — tenha 
sido executada. Se você estiver acompa- 
nhando a segiência do jogo e executar 
a rotina principal antes da que apresen- 
tamos neste artigo, as condições acima 
serão cumpridas. 

A rotina — 11168 é utilizada duas ve- 
zes para colocar na tela os dois sprites 
que compõem a nuvem. Assim, Os pa- 
râmetros necessários precisam ser car- 
regados nos registros adequados. 

O par HL deve conter o endereço ini- 
cial do sprite na Tabela de Atributos de 
Sprites (TAS). O endereço inicial dessa 
tabela está armazenado nas posições 
62413 e 62414. Como a nuvem é a pri- 
meira figura do jogo que utiliza o spri- 
te, este será o endereço do primeiro spri- 
te da nuvem. O registro B, que deve con- 
ter a coordenada Y do sprite na tela, é 
ajustado com o valor 6. O registro € 
conterá a coordenada X. Para isso, O 
conteúdo de — 5210 é colocado em € pe- 
lo acumulador. O registro D contém o 
código do padrão de 32 bytes que for- 
ma o sprite — no nosso caso, a primei- 
ra parte da nuvem tem o código 20. Fi- 
nalmente, o registro E deve conter a cor 
do sprite — usamos aqui o preto, cujo 
código é 1. 

Para o sprite que completa nuvem há 
algumas alterações. Como se trata do se- 
gundo sprite do jogo, soma-se 4 ao en- 
dereço inicial da TAS no par HL. A 
coordenada Y em B permanece 6. A 
coordenada X em € é o resultado da so- 


ma do conteúdo anterior desse registro 


com 16. A operação é necessária porque 


| SOPRANDO O VENTO 


| | | | 
| 


imprimimos o segundo sprite que com- 
põe a nuvem ao lado direito do primei- 
ro, que tem dezesseis bits de comprimen- 
to. O código do segundo sprite da nu- 
vem é 24, valor colocado em D. Sua cor 
é a mesma — ou seja, o registro E con- 
tinua contendo o valor 1. 





É importante checar se a nuvem che- 
gou a um dos cantos do vídeo. Caso is- 
so ocorra, estaremos decrementando o 
valor O ou incrementando o valor 255 na 
coordenada horizontal, o que resultará 
em erro nessa coordenada. 

Verificamos primeiro se o conteúdo 
de — 5210 é 2 ou 230. No primeiro ca- 
so, alteramos a direção do vento em 
— 5207 para 0, ou seja, para a direita; 
no segundo, alteramos para 1, ou seja, 
para a esquerda. Se o endereço — 5210 
não contiver nenhum desses dois valo- 
res, a direção não é alterada e o proces- 
sador retorna. 


UTILIZAÇÃO DE SPRITES 





O sprite é um bloco de 16 X 16 pon- 
tos ou de 8 X 8 pontos, dependendo do 
tamanho selecionado. No primeiro ca- 
so, seus padrões ocupam 32 bytes, o que 
nos permite definir apenas 64 sprites di- 
ferentes. No segundo caso, os padrões 
ocupam oito bytes, como um caractere 
gráfico comum, e podemos definir até 
256 sprites diferentes. Esses padrões de- 
vem ser colocados na tabela de padrões 
de sprites, cujo endereço inicial está ar- 
mazenado nas posições 62415 e 62416 da 
RAM 


Os sprites podem ser quatro vezes 
maiores do que os blocos gráficos co- 
muns, mas não é só isso o que os distin- 
gue. Normalmente, para movimentar 
um caractere gráfico na tela, temos que 
apagá-lo de sua posição anterior e im- 
primi-lo na nova posição. Um sprite po- 
de ser movimentado facilmente pela te- 
la: alterando-se suas coordenadas X e Y 
de impressão, ele será automaticamen- 
te apagado da posição que ocupava e 
impresso na nova posição. Tudo isso é 
feito pelo processador de video. 

Esse recurso gráfico tem, entretanto, 
suas limitações. Os sprites são definidos 
numa tabela de 256 bytes, a já mencio- 
nada Tabela de Atributos de Sprites — 
TAS. Os atributos de cada sprite ocu- 
pam quatro bytes; portanto, não pode- 
mos colocar ao mesmo tempo na tela 
mais do que 32 sprites diferentes, inde- 
pendentemente do tamanho que tenha 
sido selecionado. 





O primeiro byte guarda a coordena- 
da Y; o segundo, a coordenada X; o ter- 
ceiro, o número do sprite (é possível es- 
colher entre 64 e 256 padrões diferentes, 
dependendo do tamanho escolhido); o 
quarto e último, a cor. Como o sprite 
tem apenas cor de frente, os bits apa- 
gados são transparentes na tela, o que 
nos permite criar interessantes efeitos 
visuais. 

Uma dúvida pode surgir: o que acon- 
tece se as coordenadas de dois ou mais 
sprites coincidirem? Os sprites são hie- 
rarquizados segundo a ordem em que 
foram definidos na TAS — ou seja, O 
sprite que ocupa os quatro primeiros 
bytes na TAS tem precedência sobre o 
que ocupa os quatro bytes seguintes e as- 
sim por diante. Em resumo, o sprite que 
tem precedência aparecerá na frente dos 
demais. A justaposição de figuras assim 
obtida muitas vezes é aproveitada na 
composição de efeitos visuais. Mas não 
se esqueça de que só podemos ter até 
quatro sprites numa mesma linha. Se 
tentarmos colocar um quinto sprite, O 
último na ordem hierárquica desapa- 
recerá. 

A rotina a seguir coloca na TAS os 
atributos de um sprite, ou seja, coloca 
um sprite na tela. 


10 org -11168 
20 ld a,b 
30 push de 
ao puah bc 
50 push hl 
bo call 77 
7Ú pop hl 
BO pop bc 
90 inc hl 
100 ld a,c 
110 push hl 
120 call 77 
130 pop hl 
140 pop de 
150 anc hl 
160 ld a,d 
170 push de 
180 push hl 
190 call 77 
200 pop hl 
210 pop de 
220 inc hl 
230 ld a,e 
240 call 77 
250 ret 

260 end 


Essa rotina utiliza os parâmetros for- 
necidos pelo par HL e pelos registros B, 
C, De E para colocar na TAS os atri- 
butos de um sprite. 

O par HL deve conter o endereço ini- 
cial do sprite na TAS; o registro B, a 
coordenada Y; o registro €, a coorde- 
nada X; o registro D, o código do spri- 
tee o registro E, a cor do sprite. 
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NOVOS LANÇAMENTOS, 
NOVOS SUCESSOS. 


A FRATERNIDADE 


DA PEDRA 


- David Morrell | 
- Umpgrupo secreto, sob 
direção de um padre 

"armado, passa a agir 

' contra o terrorismo. 


Mas, será que violência 


“se combate com mais 


violência? Eis o dilema 
de Drew, agente da Lei 
envolvido com fatos e 
figuras do mundo real, 

| reendente 
do criador de bo. 


nu 
pena mu N 


“AVENTUREIROS 


E MILIONÁRIOS 
Clark Howard 


No romance do Texas, 

a saga da descoberta de 
um poço de petróleo e 

o drama de um casal que 
herda um lote de terra 
aparentemente sem valor 
e enfrenta com coragem 
os poderosos do lugar, 
até vencer. Uma vitória 
antes de tudo moral, 
numa história forte e 
envolvente, com realistas 
cenas de amor. 


Não perca também: A MISSÃO, de Robert Bolt, o livro do filme. 
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CAÇADA SEM FIM 
Bryan Forbes 


Uma brilhante históriade 
espionagem envolvendo 
a KGB. Por que matar 
uma ex-espiã que já tinha 
sido desmascarada e | 
torturada tempos atrás? 
Um agente inglês, seu 
antigo amante, enfrenta 


um desafio: descobrir 
“porque ela foi morta... 


e por que agora! 








“Senão for o primeiro, 





| este vai ser o último 
* edefinitivo guia para 
o prazer que o leitor 
poderá seguir: um livro 
PODER que derruba mitos, faz 
Elia Eai sugestões provocantes e 
A | propõe técnicas ousadas 
Um líder sindical com para se chegar ao 
a volúpia do poder, supersexo, uma relação 
a luta pelos direitos intensa e especial entre 
dos trabalhadores, os casais, que não 
nos Estados Unidos, 


“exclui o romantismo. 


e sua manipulação 

por corruptos 

e oportunistas; o jogo. 
das ambições políticas. 
Admiravelmente escrito, 
um romance atualíssimo. 





